Fonte trocada em relatório

Olá pessoal!

Meu problema é o seguinte, estou tentando usar a fonte "Blackadder ITC" no cabeçalho do meu relatório só que a fonte não aparece e no lugar dela fica alguma semelhante a "Arial Black", mas ela esta instalada no windows e uso ela em vários documentos do word. Alguem sabe o que está acontecendo?

Olá Evilazio,

Você já tentou via código?

Código:


Public Function FormatoFonte1()
Dim ctl As Variant

For Each ctl In Me.Controls
  Select Case ctl.ControlType
          Case acTextBox                  'Você pode acrescentar "acComboBox, ListBox
                If ctl.Tag = -1 Then        'Em propriedades do objeto, Marca = -1
                    ctl.FontBold = True
                    ctl.FontName = "Blackadder ITC"
                End If
            Case Else
        End Select
  Next ctl
End Function