MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Fonte trocada em relatório

    avatar
    Evilazio
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 28/05/2011

    Fonte trocada em relatório Empty Fonte trocada em relatório

    Mensagem  Evilazio Qua 15 Abr - 17:29

    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?
    good guy
    good guy
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    Fonte trocada em relatório Empty Fonte trocada em relatorio

    Mensagem  good guy Qua 15 Abr - 19:38

    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

      Data/hora atual: Ter 13 Abr - 9:42