Всем здравствуйте, поднимука тему.
Задача почти таже.
Шрифт баркод.
У пользователя стоит запрет на установку шрифтов (права админа и тп). Даже если есть возможность таскать файл шрифта с собой, как его использовать не устанавливая в систему?
Уже месяц в инете роюсь ничего толкового не нашел, остается только надежда на коллективный разум форума)).

RAN., Прям большущие спасибо, действительно похоже это единственный вариант, но он работает. Еще раз благодарю.

Нашел как

' вставить в модуль.
Public Declare Function AddFontResource Lib "gdi32" _
Alias "AddFontResourceA" _
(ByVal lpFileName As String) As Long

Public Declare Function RemoveFontResource Lib "gdi32" _
Alias "RemoveFontResourceA" _
(ByVal lpFileName As String) As Long

Public Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long

Public Const WM_FONTCHANGE = &H1D
Public Const HWND_BROADCAST = &HFFFF


ExpandedWrap disabled
' Код для формы
Private Sub cmd_LoadFont_Click()
' настройка для эл-та Label (для примера)
lbabel_1.Caption = "123456789"
lbabel_1.Font.Size = "36"
ok = AddFontResourceEx(App.Path & "\MyFont.TTF")
If ok = 0 Then
' Если 0 шрифтов удалось загрузить в таблицу, далее обработка ошибок или кому как угодно.
Exit Sub
End If
'Ниже ok должен быть >0, иначе ... свои действия

спасибо сюда http://bit.pirit.info/forum/viewtopic.php?p=23259

eFcan, только за место AddFontResourceEx -> AddFontResource

Щас поэксперементировал у меня сработала вот такая конструкция

ok = AddFontResource("C:\temp\barcode.ttf")
MsgBox ok
SendMessage HWND_BROADCAST, WM_FONTCHANGE, 0, 0
om = AddFontResource("C:\temp\ean13.ttf")
MsgBox om
Call SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0)