Van toepassing op
ComboBox-object |
Report-object |
CommandButton-object |
TabControl-verzameling |
FormatCondition-object |
TextBox-object |
Label-object |
ToggleButton-object |
ListBox-object |
Met de eigenschap FontBold kunt u opgeven of een lettertype vetgedrukt moet worden weergegeven in de volgende situaties:
-
Bij het weergeven of afdrukken van besturingselementen in formulieren en rapporten.
-
Als u de methode Afdrukken gebruikt in een rapport.
Opmerkingen
De eigenschap FontBold gebruikt de volgende instellingen.
Instelling |
Beschrijving |
True |
De tekst is vet. |
False |
(Standaard) De tekst is niet vet. |
Opmerking: U kunt de eigenschap FontBold alleen instellen met een macro of VBA-code (Visual Basic for Applications).
Als u de eigenschap FontBold in een rapport wilt gebruiken, maakt u eerst een gebeurtenisprocedure voor afdrukken waarmee de gewenste tekst wordt afgedrukt.
De weergave van een lettertype op het scherm en op een afdruk kan verschillen, afhankelijk van de computer en printer.
De eigenschap FontWeight, die beschikbaar is in het eigenschappenvenster voor besturingselementen, kan ook worden gebruikt om de lijndikte voor de tekst van een besturingselement in te stellen. Met de eigenschap FontBold kunt u snel tekst vet maken en met de eigenschap FontWeight kunt u de instelling voor de lijndikte van tekst verder verfijnen. In de onderstaande tabel ziet u de relatie tussen de instellingen van deze eigenschappen:
Als |
Dan gebeurt het volgende |
FontBold = False |
FontWeight = Normaal (400) |
FontBold = True |
FontWeight = Vet (700) |
FontWeight < 700 |
FontBold = False |
FontWeight > = 700 |
FontBold = True |
Voorbeeld
Met de volgende gebeurtenisprocedure Afdrukken worden een rapporttitel en de huidige datum vet afgedrukt in een rapport op de coördinaten die zijn opgegeven met de instellingen van de eigenschappen HuidigeX en HuidigeY.
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