Propriedade TabControl.FontSize (Access)
Use a propriedade FontSize para especificar o tamanho do ponto 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.
número inteiro de leitura/gravação.
Sintaxe
expressão. Fontsize
Expressão Uma variável que representa um objeto TabControl .
Comentários
A propriedade FontSize utiliza as configurações a seguir.
Configuração | Descrição |
---|---|
8 | (Padrão para todos os relatórios e controles, exceto botões de comando) O texto é um tipo de 8 pontos. |
10 | (Padrão para botões de comando) O texto é um tipo de 10 pontos. |
Outros tamanhos | O texto é do tamanho indicado. |
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.
No Visual Basic, você pode definir a propriedade FontSize, usando uma expressão numérica é igual ao tamanho desejado da fonte. A configuração da propriedade FontSize pode estar entre 1 e 127, inclusive.
Exemplo
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
Suporte e comentários
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.