Mensajes

primero deberiamos saber que pc tienes pero no creo posible que instales 20000 fuentes sin que explote por el aire.
Yo tengo un celeron 2600 con 1gb de ram y no pude instalar mas de 1500 fuentes.
lo que hago habitualmente, es usar el beastreem font navigator y voy reemplazando las fuentes que necesito
Otra cosa a tener en cuenta es que existen innumerables fuentes que no cuentan con todos los caracteres o accesorios como son los acentos, parentesis, numeros y demas cosas,
que por ahi no combiene tener instaladas permanentemente.
Y si me dices que en 10 años usaste 20000 fuentes ire hasta tu casa a darte las felicitaciones y 10 años es mucho tiempo, llevo 8 diseñando profesionalmente y no he usado ni siquiera 1000

saludos

lo que puedes hacer es crear un nuevo doumento y pasar capas una auna pero en alguna de las capas (la que mas te convenga) poner esa capa "oculta" junto con otra.
Otra opcion es acoplarla en el mismo documento con otra tambien que te convenga
saludos

jeje despues de las criticas cambiaste fuentes y explicas mejor las cosas , bien por vos quique, excelente tuto
saludos

tienes mil preguntas para hacerle a un diseñador. Aqui te dejo algunas:

Cual es el programa que usa habitualmente
usa vectores y pixeles combinados?
cual es la ventaja o desventaja de cada uno de los formatos de imagenes y/o formatos de vectores?
como influye la calidad de una foto en el resultado final
etc etc

si esto no te sirve para empezar recorre un poco el foro y tendras miles de preguntas y sus respuestas.

Solo debes buscarrrrrrrr

Mira puedes hacer cualquiera de las opciones, o trabajar en tamaño real en photoshop o bien, tambien en tamaño real en corel importar las imagenes en formato tif para no perder calidad ya que por mas que sea jpg corel vuelve vuelve a comprimir la imagenes insertadas y es que asi lo tienes seteado en las preferencias, que es lo mas probable.
Ademas debes tener en cuenta el modo de impresion con el que se tendra el cartel final ya que cambia mucho si es ploteado u offset acesorate al respecto. Algunos ploters con 180 dpi alcanza pero para otros necesitaras 300 y mas tambien, para el offset si o si deberas partir de 300 dpi.
Ahora si la imagen no la diseñas tu y la obtienes de la web o algun otro medio siempre podras llevarla a mas tamaño en photoshop pero vas a tener un límite por lo que con corel rave y fireworks o corel trace puedes vectorizarlas pero deberas tener muy encuenta las divisiones de color y las porciones del mismo color para que no te tome valores cercanos como iguales. Para esto ultimo te hara falta una buena pc . mucho proceso, velocidad y video. porque vectorizar una imagen te genera un archivo 10 ó 15 veces mayor a la imagen original.

Saludos

para completar los post anteriores agrego que puedes setear en las preferencias la cantidad de acciones a guardar en Historia y que el primer item de historia es Abrir que aunque hayas guardado esta ahi y podras volver a guardar sin las modificaciones que hiciste.
Ademas si solo las agrupaste puedes desagruparlas la dificultad estara cuando las acoplaste, guardaste y cerraste el documento, ahi creo que estas muerto.

saludos

hola
Buscaste en fontreactor.com creo que la he visto en esa web
saludos

buenas

enprimer lugar debes declarar el srtring conection para poder llamarlo al iniciar el sistema
quedaria algo asi

Código [Seleccionar] Expandir


    StrConBaseAccess = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;"
    StrConBaseAccess = StrConBaseAccess & "Data Source=" & App.Path & "\Clases.mdb"
    ' IngresoSistema
   
    FrmInicial.Show



luego aolo debes llamar a los valores del modulo de conexion para hacer las consultas o cambios a tu base

saludos

buenas
aqui te pego un codigo que utilizo para obtener cualquier clave del registro.
Debo aclarar que en parte no es mio pero que hice algunas modificaciones para poder utilizarlo en cualquier proyecto.

Código [Seleccionar] Expandir


Option Explicit
Declare Function SetWindowWord Lib "USER32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal wNewWord As Long) As Long


'Crear una ventana flotante al estilo de los tool-bar
'Cuando se minimiza la ventana padre, también lo hace ésta.
Global Const SWW_hParent = -8

Global Const REG_SZ As Long = 1
Global Const REG_DWORD As Long = 4

Global Const HKEY_CLASSES_ROOT = &H80000000
Global Const HKEY_CURRENT_USER = &H80000001
Global Const HKEY_LOCAL_MACHINE = &H80000002
Global Const HKEY_USERS = &H80000003

Global Const ERROR_NONE = 0
Global Const ERROR_BADDB = 1
Global Const ERROR_BADKEY = 2
Global Const ERROR_CANTOPEN = 3
Global Const ERROR_CANTREAD = 4
Global Const ERROR_CANTWRITE = 5
Global Const ERROR_OUTOFMEMORY = 6
Global Const ERROR_INVALID_PARAMETER = 7
Global Const ERROR_ACCESS_DENIED = 8
Global Const ERROR_INVALID_PARAMETERS = 87
Global Const ERROR_NO_MORE_ITEMS = 259

Global Const KEY_ALL_ACCESS = &H3F

Global Const REG_OPTION_NON_VOLATILE = 0

Type FILETIME
            dwLowDateTime As Long
            dwHighDateTime As Long
End Type
'Type CONEXIONES_TELEFONICAS
'        NOMBRE As String
'        Usuario2 As String
'        Default As Boolean
'End Type
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, ByVal lpSecurityAttributes As Long, phkResult As Long, lpdwDisposition As Long) As Long
Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Declare Function RegQueryValueExString Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long
Declare Function RegQueryValueExLong Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Long, lpcbData As Long) As Long
Declare Function RegQueryValueExNULL Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As Long, lpcbData As Long) As Long
Declare Function RegSetValueExString Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As String, ByVal cbData As Long) As Long
Declare Function RegSetValueExLong Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpValue As Long, ByVal cbData As Long) As Long
Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Declare Function RegEnumKeyEx Lib "advapi32.dll" Alias "RegEnumKeyExA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, lpcbName As Long, ByVal lpReserved As Long, ByVal lpClass As String, lpcbClass As Long, lpftLastWriteTime As FILETIME) As Long
Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, lpReserved As Long, lpType As Long, lpData() As Byte, lpcbData As Long) As Long
Declare Function RegQueryInfoKey Lib "advapi32.dll" Alias "RegQueryInfoKeyA" (ByVal hKey As Long, ByVal lpClass As String, lpcbClass As Long, lpReserved As Long, lpcSubKeys As Long, lpcbMaxSubKeyLen As Long, lpcbMaxClassLen As Long, lpcValues As Long, lpcbMaxValueNameLen As Long, lpcbMaxValueLen As Long, lpcbSecurityDescriptor As Long, lpftLastWriteTime As FILETIME) As Long
'Para el shell con espera (Síncrono)
Const PROCESS_QUERY_INFORMATION = &H400
Const STILL_ACTIVE = &H103
Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess&, ByVal bInheritHandle&, ByVal dwProcessId&) _
As Long
Declare Function GetExitCodeProcess Lib "kernel32" _
(ByVal hProcess As Long, lpExitCode As Long) _
As Long
'Global CONEX() As CONEXIONES_TELEFONICAS
Global CANTIDAD_CONEXIONES As Long
Public Function EnumKey(lPredefinedKey As Long, sKeyName As String, vSubKeys As Variant) As Long
' Descripción:
'   Esta función busca todas las subclaves de una dada y forma una matriz con ellas en
'   el parámetro vSubKeys.
'
'   Si queremos saber las subclaves de una de las principales debemos dejar en blanco
'   el parámetro sKeyName
'
'   Devuelve el número de subclaves o -1 si hubo algún error
'
' Sintaxis:
'   variable = EnumKey (ClaveRaíz, NombreDeClave,SubClaves)
'
'   ClaveRaíz debe ser HKEY_CLASSES_ROOT, HKEY_CURRENT_USER, HKEY_lOCAL_MACHINE
'   o HKEY_USERS
'
'   NombreDeClave es el nombre de la clave cuyas subclaves queremos obtener,
'   puede incluir subclaves (por ejemplo "Clave1\SubClave1")
'
'   SubClaves es un variant que recogerá la matriz de subclaves obtenida

    Dim lRetVal As Long             'resultado de las funciones del API
    Dim hKey As Long                'handle de la clave abierta
    Dim sSubKeyName As String       'nombre de la subclave
    Dim lSubKeyLen As Long          'tamaño del nombre de la subclave
    Dim lMaxSubKeyLen As Long       'tamaño del nombre de subclave más grande
    Dim lNumSubKeys As Long         'número de subclaves existentes
    Dim ftLastWriteTime As FILETIME 'fecha última modif. de la clave (sólo NT)
    Dim lIndex As Long              'índice de la subclave
    Dim sSubClaves() As String      'matriz para contener las subclaves
   
    EnumKey = -1
    'si tenemos nombre de clave la abrimos
    If sKeyName <> "" Then
        lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)
    Else
        hKey = lPredefinedKey
    End If
    'obtenemos el nº de subclaves y el tamaño máximo de sus nombres
    lRetVal = RegQueryInfoKey(hKey, 0&, 0&, 0&, lNumSubKeys, lMaxSubKeyLen, 0&, 0&, 0&, 0&, 0&, ftLastWriteTime)
    If lRetVal = 0 Then
        'si no encontré subclaves
        If lNumSubKeys = 0 Then
            EnumKey = 0
        Else
            EnumKey = lNumSubKeys
            lNumSubKeys = lNumSubKeys - 1       ' va de 0 a n-1
            lMaxSubKeyLen = lMaxSubKeyLen + 1   ' dejar sitio para el 0 de fin de string en c
            'dimensionamos la matriz
            ReDim sSubClaves(lNumSubKeys)
            'recorremos las subclaves (en orden inverso, como dice la ayuda ¿?)
            For lIndex = lNumSubKeys To 0 Step -1
                lSubKeyLen = lMaxSubKeyLen
                sSubKeyName = String(lMaxSubKeyLen, 0)
                lRetVal = RegEnumKeyEx(hKey, lIndex, sSubKeyName, lSubKeyLen, 0&, 0&, 0&, ftLastWriteTime)
                If lRetVal = 0 Then
                    sSubClaves(lIndex) = Left$(sSubKeyName, lSubKeyLen)
                Else
                    EnumKey = -1
                End If
            Next lIndex
        End If
    Else
        EnumKey = -1
    End If
    'devolvemos el resultado
    vSubKeys = sSubClaves()
    'cerramos la clave
    If sKeyName <> "" Then RegCloseKey (hKey)
End Function

Public Function EnumValue(lPredefinedKey As Long, sKeyName As String, vValues As Variant) As Long
' Descripción:
'   Esta función busca todos los valores de una clave y forma una matriz con ellos
'   en el parámetro vValues.
'
'   Si queremos saber las subclaves de una de las principales debemos dejar en blanco
'   el parámetro sKeyName
'
'   Devuelve el número de valores o -1 si hubo algún error
'
' Sintaxis:
'   variable = EnumValue (ClaveRaíz, NombreDeClave,Valores)
'
'   ClaveRaíz debe ser HKEY_CLASSES_ROOT, HKEY_CURRENT_USER, HKEY_lOCAL_MACHINE
'   o HKEY_USERS
'
'   NombreDeClave es el nombre de la clave cuyos valores y datos queremos obtener,
'   puede incluir subclaves (por ejemplo "Clave1\SubClave1")
'
'   Valores es un variant que recogerá la matriz de valores y datos obtenida

    Dim lRetVal As Long             'resultado de las funciones del API
    Dim hKey As Long                'handle de la clave abierta
    Dim sValueName As String        'nombre del valor
    Dim lValueNameLen As Long       'tamaño del nombre del valor
    Dim lMaxValueNameLen As Long    'tamaño del nombre de valor más grande
    Dim lNumValues As Long          'número de valores existentes
    Dim bValueData(500) As Byte     'byte para obtener el dato del valor, no funciona?
    Dim lValueSize As Long          'longitud del array anterior
    Dim ftLastWriteTime As FILETIME 'fecha última modif. del valor (sólo NT)
    Dim lIndex As Long              'índice del valor
    Dim vValores() As String        'matriz para contener los valores
   
    EnumValue = -1
    'si tenemos nombre de clave la abrimos
    If sKeyName <> "" Then
        lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)
    Else
        hKey = lPredefinedKey
    End If
   
    'obtenemos el nº de valores y el tamaño máximo de sus nombres
    lRetVal = RegQueryInfoKey(hKey, 0&, 0&, 0&, 0&, 0&, 0&, lNumValues, lMaxValueNameLen, 0&, 0&, ftLastWriteTime)
    If lRetVal = 0 Then
        'si no encontré valores
        If lNumValues = 0 Then
            EnumValue = 0
        Else
            EnumValue = lNumValues
            lNumValues = lNumValues - 1 'va de 0 a n-1
            lMaxValueNameLen = lMaxValueNameLen + 1 'para que quepa el 0 de fin de cadena en C
            'dimensionamos la matriz
            ReDim vValores(lNumValues)
            'recorremos los valores (en orden inverso, como dice la ayuda ¿?)
            For lIndex = lNumValues To 0 Step -1
                lValueNameLen = lMaxValueNameLen
                sValueName = String(lMaxValueNameLen, 0)
                lValueSize = 500
                'no me funciona si no pongo un array de bytes para recoger el resultado,
                'aunque luego no me lo da¿?. Si pones una longitud menor de lo que ocupa
                'el dato tampoco funciona, por eso puse 500 bytes
                lRetVal = RegEnumValue(hKey, lIndex, sValueName, lValueNameLen, 0&, 0&, bValueData(), lValueSize)
                If lRetVal = 0 Then
                    vValores(lIndex) = Left$(sValueName, lValueNameLen)
                Else
                    EnumValue = -1
                End If
            Next lIndex
        End If
    Else
        EnumValue = -1
    End If
    'devolvemos el resultado
    vValues = vValores()
    'cerramos la clave
    If sKeyName <> "" Then RegCloseKey (hKey)

End Function
Function QueryValueEx(ByVal lhKey As Long, ByVal szValueName As String, vValue As Variant) As Long
'
' Función utilizada por QueryValue, no debemos llamarla directamente
'
    Dim cch As Long
    Dim lrc As Long
    Dim ltype As Long
    Dim lValue As Long
    Dim sValue As String

    On Error GoTo QueryValueExError


    ' Determinar el tipo de datos y el tamaño que debemos leer

    lrc = RegQueryValueExNULL(lhKey, szValueName, 0&, ltype, 0&, cch)
    If lrc <> ERROR_NONE Then Error 5

    Select Case ltype
        ' Para strings
        Case REG_SZ:
            sValue = String(cch, 0)
            lrc = RegQueryValueExString(lhKey, szValueName, 0&, ltype, sValue, cch)
            If lrc = ERROR_NONE Then
                vValue = Left$(sValue, cch - 1)
            Else
                vValue = Empty
            End If

        ' Para DWORDS (long)
        Case REG_DWORD:
            lrc = RegQueryValueExLong(lhKey, szValueName, 0&, ltype, lValue, cch)
            If lrc = ERROR_NONE Then vValue = lValue
        Case Else
            'no están soportados otros tipos
            lrc = -1
    End Select

QueryValueExExit:

    QueryValueEx = lrc
    Exit Function

QueryValueExError:

    Resume QueryValueExExit

End Function
Public Function QueryValue(lPredefinedKey As Long, sKeyName As String, sValueName As String)
' Descripción:
'   Esta función devuelve los datos de un valor o Empty si no lo encontró
'
' Sintaxis:
'   variable = QueryValue(ClaveRaíz, NombreDeClave, NombreDeValor)
'
'   ClaveRaíz debe ser HKEY_CLASSES_ROOT, HKEY_CURRENT_USER, HKEY_lOCAL_MACHINE
'   o HKEY_USERS
'
'   NombreDeClave es el nombre de la clave que contiene el valor que queremos recuperar,
'   puede incluir subclaves (por ejemplo "Clave1\SubClave1")
'
'   NombreDeValor es el nombre del valor que queremos recuperar, si es null devolverá
'   el valor predeterminado de la clave (si existe)

       Dim lRetVal As Long      'resultado de las funciones del API
       Dim hKey As Long         'handle de la clave abierta
       Dim vValue As Variant    'datos del valor requerido

       'abrimos la clave
       lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)
       'obtenemos los datos del valor
       lRetVal = QueryValueEx(hKey, sValueName, vValue)
       QueryValue = vValue
       'cerramos la clave
       RegCloseKey (hKey)
End Function

Sub EsperarShell(sCmd As String, Optional Parametro)

    Dim hShell As Long
    Dim hProc As Long
    Dim codExit As Long
    Dim LineaComando As String
    Dim CM As String
    CM = """"
    sCmd = RetornarPathCorto(sCmd)
    ' ejecutar comando
    LineaComando = sCmd
    If Right(LineaComando, 1) = "\" Then
       LineaComando = Mid(LineaComando, 1, Len(LineaComando) - 1)
    End If
    If Not IsMissing(Parametro) Then
       LineaComando = LineaComando & " " & Parametro
    End If
    'hShell = Shell(Environ$("Comspec") & " /c " & LineaComando, vbMaximizedFocus)
    hShell = Shell(LineaComando, vbMaximizedFocus)
    ' esperar a que se complete el proceso
    hProc = OpenProcess(PROCESS_QUERY_INFORMATION, False, hShell)
    Do
        GetExitCodeProcess hProc, codExit
        DoEvents
    Loop While codExit = STILL_ACTIVE
   
End Sub
Function RetornarPathProgramaInstalado(NombreExe As Variant) As Variant
Dim valor As String
Dim SubClave As String
RetornarPathProgramaInstalado = ""
SubClave = "SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\" & NombreExe
valor = QueryValue(HKEY_LOCAL_MACHINE, SubClave, "")
RetornarPathProgramaInstalado = valor
End Function
Function RetornarPathAplicacionExtension(Extension As Variant) As Variant
Dim valor As String
Dim SubClave As String
Dim Posi As Integer
'jpg
'HKEY_CLASSES_ROOT\jpegfile\shell\open\command
'gif
'HKEY_CLASSES_ROOT\giffile\shell\open\command
'bmp
'HKEY_CLASSES_ROOT\Paint.Picture\shell\open\command
RetornarPathAplicacionExtension = ""
Select Case UCase$(Extension)
       Case "JPG", "JPEG"
          SubClave = "jpegfile\shell\open\command"
       Case "GIF"
          SubClave = "giffile\shell\open\command"
       Case "BMP"
          SubClave = "Paint.Picture\shell\open\command"
       Case "WMF"
          SubClave = "wmf_auto_file\shell\open\command"
       Case "DIB"
          SubClave = "Software\CLASSES\dib_auto_file\shell\open\command"
End Select
If UCase$(Extension) <> "DIB" Then
    valor = QueryValue(HKEY_CLASSES_ROOT, SubClave, "")
  Else
    valor = QueryValue(HKEY_LOCAL_MACHINE, SubClave, "")
End If
If valor <> "" Then
    'Posi = InStr(1, valor, "%")
    Posi = InStr(1, UCase$(valor), ".EXE")
    If Posi <> 0 Then
       'valor = Mid(valor, 1, Posi - 2)
       valor = Mid(valor, 1, Posi + 3)
    End If
    RetornarPathAplicacionExtension = valor
End If
End Function

Function RetornarDelimitadorParametro(Extension As Variant) As Variant
Dim valor As String
Dim SubClave As String
Dim Posi As Integer
Dim CM As String
CM = """"

'jpg
'HKEY_CLASSES_ROOT\jpegfile\shell\open\command
'gif
'HKEY_CLASSES_ROOT\giffile\shell\open\command
'bmp
'HKEY_CLASSES_ROOT\Paint.Picture\shell\open\command
RetornarDelimitadorParametro = ""
Select Case UCase$(Extension)
       Case "JPG", "JPEG"
          SubClave = "jpegfile\shell\open\command"
       Case "GIF"
          SubClave = "giffile\shell\open\command"
       Case "BMP"
          SubClave = "Paint.Picture\shell\open\command"
       Case "WMF"
          SubClave = "wmf_auto_file\shell\open\command"
       Case "DIB"
          SubClave = "Software\CLASSES\dib_auto_file\shell\open\command"
End Select
If UCase$(Extension) <> "DIB" Then
    valor = QueryValue(HKEY_CLASSES_ROOT, SubClave, "")
  Else
    valor = QueryValue(HKEY_LOCAL_MACHINE, SubClave, "")
End If
If valor <> "" Then
    'Buscar que delimitador hay
    Posi = InStr(1, UCase$(valor), ".EXE")
    Posi = InStr(Posi, UCase$(valor), CM)
    If Posi = 0 Then
       CM = "'"
       Posi = InStr(1, UCase$(valor), ".EXE")
       Posi = InStr(Posi, UCase$(valor), CM)
    End If
    If Posi <> 0 Then
       valor = CM
      Else
       valor = ""
    End If
    RetornarDelimitadorParametro = valor
End If
End Function





espero sea de utilidad ya que solo te hace falta corregir parametros y llamar a la funcion correcta

saludos

debes limpiar la grilla antes de cargar los nuevos datos