Прошу помощи у Гуру, сломал себе голову.

Как внедрить шрифт в приложение Access 2007 ?
У пользователей отсутсвуют админские права, шрифт им загнать в папку Fonts нет возможности никак.
Без шрифта жить невозможно, это шрифт на штрих код.

Полагаю что при помощи VBA, пересмотрел кучу примеров, все одно и тоже и связано с VBA Excel, не могу интегрировать в Access.
Вот типичный аналог кода что смог найти:

<sup>Private Declare Function AddFontResource Lib "gdi32.dll" _
Alias "AddFontResourceA" ( _
ByVal lpFileName As String ) As Long

Private Sub Command1_Click ()
Dim Retval As Long

Retval = AddFontResource(App.Path & "\lcd.ttf")
If Retval = 0 Then
MsgBox "Die Funktion ist gescheitert", vbCritical , "Fehler"
Else
MsgBox "Es wurden " & Retval & " Font(s) hinzugefьgt.", _
vbInformation , "Font(s) hinzugefьgt"
End If
End Sub</sup>

http://www.sql.ru/forum/1130099/vnedrennyy-shrift