Propriedade Report.FontName (Access)
Use a propriedade FontName para especificar a fonte para texto nas seguintes situações:
- Ao exibir ou imprimir controles em formulários e relatórios.
- Ao utilizar o método Print em um relatório.
Cadeia de caracteres de leitura/gravação.
expressão. Fontname
Expressão Uma variável que representa um objeto Report .
A configuração da propriedade FontName é o nome da fonte que o texto é exibido.
Você pode definir o padrão dessa propriedade usando o estilo de controle padrão de um controle ou a propriedade DefaultControl no Visual Basic.
Para relatórios, você pode definir essa propriedade somente em um procedimento de evento ou em uma macro especificada pela configuração da propriedade de evento OnPrint.
A disponibilidade de fontes depende do sistema e da impressora. Se você selecionar uma fonte que o seu sistema não consiga exibir ou que não esteja instalada, o Windows a substituirá por outra semelhante.
O exemplo a seguir usa o método Print para exibir texto em um relatório chamado Report1. Ele usa os métodos TextHeight e de TextWidth para centralizar o texto vertical e horizontalmente.
Private Sub Detail_Format(Cancel As Integer, _
FormatCount As Integer)
Dim rpt as Report
Dim strMessage As String
Dim intHorSize As Integer, intVerSize As Integer
Set rpt = Me
strMessage = "DisplayMessage"
With rpt
'Set scale to pixels, and set FontName and
'FontSize properties.
.ScaleMode = 3
.FontName = "Courier"
.FontSize = 24
End With
' Horizontal width.
intHorSize = Rpt.TextWidth(strMessage)
' Vertical height.
intVerSize = Rpt.TextHeight(strMessage)
' Calculate location of text to be displayed.
Rpt.CurrentX = (Rpt.ScaleWidth/2) - (intHorSize/2)
Rpt.CurrentY = (Rpt.ScaleHeight/2) - (intVerSize/2)
' Print text on Report object.
Rpt.Print strMessage
End Sub
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.