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 FontWeight-Eigenschaft , die im Eigenschaftenblatt für Steuerelemente verfügbar ist, kann auch verwendet werden, um die Linienbreite für den Text eines Steuerelements festzulegen. Die FontBold-Eigenschaft bietet Ihnen eine schnelle Möglichkeit, Text fett zu gestalten. Mit der FontWeight-Eigenschaft können Sie die Einstellung für die Zeilenbreite für Text genauer steuern. 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
