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

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

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

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

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

Нуу, замени App.Path на currentproject.path и вся "интеграция".

Только бестолку все эти "приседания". Бесправный юзер, останется "бесправным" и при программном добавлении шрифта.
Просто админ должен один раз инсталлировать этот шрифт всем, и все дела