Aplica-se a
Objeto ComboBox |
Objeto Report |
Objeto CommandButton |
Coleção TabControl |
Objeto FormatCondition |
Objeto TextBox |
Objeto Label |
Objeto ToggleButton |
Objeto ListBox |
Pode utilizar a propriedade TipoDeLetraNegrito para especificar se um tipo de letra aparece em negrito nas seguintes situações:
-
Ao apresentar ou imprimir controlos em formulários e relatórios.
-
Ao utilizar o método Imprimir num relatório.
Observações
A propriedade TipoDeLetraNegrito utiliza as seguintes definições.
Definição |
Descrição |
Verdadeiro |
O texto está em negrito. |
Falso |
(Predefinição) O texto não está em negrito. |
Nota: Pode definir a propriedade TipoDeLetraNegrito apenas se utilizar uma macro ou código VBA (Visual Basic for Applications).
Para utilizar a propriedade TipoDeLetraNegrito num relatório, comece por criar um procedimento de evento Imprimir para imprimir o texto pretendido.
O aspeto do tipo de letra poderá ser diferente no ecrã e na impressão, consoante o seu computador e impressora.
A propriedade FontWeight , que está disponível na folha de propriedades para controlos, também pode ser utilizada para definir a largura da linha do texto de um controlo. A propriedade FontBold dá-lhe uma forma rápida de colocar o texto a negrito; A propriedade FontWeight dá-lhe um controlo mais fino sobre a definição de largura da linha do texto. A tabela seguinte mostra a relação entre as definições destas propriedades.
Se |
Então |
TipoDeLetraNegrito = Falso |
EspessuraDoTipoDeLetra = Normal (400) |
TipoDeLetraNegrito = Verdadeiro |
EspessuraDoTipoDeLetra = Negrito (700) |
EspessuraDoTipoDeLetra < 700 |
TipoDeLetraNegrito = Falso |
EspessuraDoTipoDeLetra > = 700 |
TipoDeLetraNegrito = Verdadeiro |
Exemplo
O seguinte procedimento de evento Imprimir imprime um título do relatório e a data atual em negrito num relatório nas coordenadas especificadas pelas definições das propriedadesCurrentX e CurrentY.
Private Sub ReportHeader0_Print(Cancel As Integer, _
PrintCount As Integer)
Dim MyDate
MyDate = Date
Me.FontBold = True
' Print report title in bold.
Me.Print("Sales Management Report")
Me.Print(MyDate)
End Sub