Aplica-se A
Access para Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

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

Precisa de mais ajuda?

Quer mais opções?

Explore os benefícios da subscrição, navegue em cursos de formação, saiba como proteger o seu dispositivo e muito mais.