Agregar Fuentes al sistema


Hay programas que utilizan tipografías especiales las cuales no se encuentran en todas las computadoras. Un caso es la fuente 3of9.ttf o la fuente barcode.ttf las cuales permiten imprimir códigos de barras con sólo llamarlas. Para que un programa pueda agregarle fuentes al sistema operativo hay que seguir los siguientes pasos:

1. Agregar en el módulo de declaraciones

Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long

 

2. En el punto donde el programa debe agregar la fuente copiar la siguiente rutina:

Dim x As Long
x = AddFontResource("archivo.ttf")

La función devuelve 1 si la operación tuvo éxito y 0 si no pudo realizarce.
Colocar en archivo.ttf la ruta de acceso y el archivo que contiene la fuente.