Gilt für:
|
ComboBox-Objekt |
Report-Objekt |
|
CommandButton-Objekt |
TabControl-Sammlung |
|
FormatCondition-Objekt |
TextBox-Objekt |
|
Label-Objekt |
ToggleButton-Objekt |
|
ListBox-Objekt |
Mit der SchriftFett-Eigenschaft können Sie angeben, ob eine Schriftart in den folgenden Situationen fett ausgezeichnet wird:
-
Beim Anzeigen oder Drucken von Steuerelementen in Formularen und Berichten
-
Bei Verwenden der Print-Methode in einem Bericht
Hinweise
Die Eigenschaft SchriftFett verwendet die folgenden Einstellungen.
|
Einstellung |
Beschreibung |
|
True |
Der Text ist fett formatiert. |
|
False |
(Standard) Der Text ist nicht fett formatiert. |
Hinweis: Sie können die SchriftFett-Eigenschaft nur mithilfe eines Makros oder von VBA-Code (Visual Basic for Applications) festlegen.
Um die SchriftFett-Eigenschaft für einen Bericht zu verwenden, erstellen Sie zunächst eine Ereignisprozedur des Typs "Print", die den gewünschten Text druckt.
Das Aussehen einer Schriftart auf dem Bildschirm und im Ausdruck kann je nach Computer und Drucker unterschiedlich sein.
Die Eigenschaft FontWeight, die im Eigenschaftenblatt für Steuerelemente verfügbar ist, kann auch zum Festlegen der Zeilenbreite für den Text eines Steuerelements verwendet werden. Die FontBold-Eigenschaft bietet eine schnelle Möglichkeit, Text fett zu machen. Die Eigenschaft FontWeight ermöglicht Ihnen eine feinere Kontrolle über die Einstellung der Linienbreite für Text. Die folgende Tabelle zeigt die Beziehung zwischen den Einstellungen dieser Eigenschaften.
|
Bedingung |
Ergebnis |
|
SchriftFett = False |
Schriftbreite = Normal (400) |
|
SchriftFett = True |
Schriftbreite = Fett (700) |
|
Schriftbreite < 700 |
SchriftFett = False |
|
Schriftbreite >= 700 |
SchriftFett = True |
Beispiel
Die folgende Print-Ereignisprozedur druckt einen Berichtstitel und das aktuelle Datum fett formatiert auf einem Bericht an den Koordinaten, die von den Einstellungen der Eigenschaften CurrentX und CurrentX angegeben werden.
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
