TextBox.FontName-Eigenschaft (Access)

  • Artikel

Verwenden Sie die FontName-Eigenschaft , um die Schriftart für Text in den folgenden Situationen anzugeben:

  • Beim Anzeigen oder Drucken von Steuerelementen für Formulare und Berichte.
  • Bei Verwendung der Print-Methode für einen Bericht.

Zeichenfolge mit Lese-/Schreibzugriff.

Syntax

Ausdruck. Fontname

Ausdruck Eine Variable, die ein TextBox-Objekt darstellt.

HinwBemerkungeneise

Die Einstellung der FontName-Eigenschaft ist der Name der Schriftart, in der der Text angezeigt wird.

Sie können die Standardeinstellung für diese Eigenschaft festlegen, indem Sie das Standardsteuerelementformat eines Steuerelements oder die DefaultControl-Eigenschaft in Visual Basic verwenden.

Für Berichte können Sie diese Eigenschaft nur in einer Ereignisprozedur oder in einem Makro festlegen, das durch die Einstellung der OnPrint-Ereigniseigenschaft angegeben wird.

Die Verfügbarkeit der Schriftart hängt von Ihrem System und Drucker ab. Wenn Sie eine Schriftart auswählen, die ihr System nicht anzeigen kann oder die nicht installiert ist, ersetzt Windows eine ähnliche Schriftart.

Beispiel

Im folgenden Beispiel wird die Print-Methode verwendet, um Text in einem Bericht namens "Report1" anzuzeigen. Mit den Methoden TextWidth und TextHeight wird der Text vertikal und horizontal zentriert.

Private Sub Detail_Format(Cancel As Integer, _ 
 FormatCount As Integer) 
 Dim rpt as Report 
 Dim strMessage As String 
 Dim intHorSize As Integer, intVerSize As Integer 
 
 Set rpt = Me 
 strMessage = "DisplayMessage" 
 With rpt 
 'Set scale to pixels, and set FontName and 
 'FontSize properties. 
 .ScaleMode = 3 
 .FontName = "Courier" 
 .FontSize = 24 
 End With 
 ' Horizontal width. 
 intHorSize = Rpt.TextWidth(strMessage) 
 ' Vertical height. 
 intVerSize = Rpt.TextHeight(strMessage) 
 ' Calculate location of text to be displayed. 
 Rpt.CurrentX = (Rpt.ScaleWidth/2) - (intHorSize/2) 
 Rpt.CurrentY = (Rpt.ScaleHeight/2) - (intVerSize/2) 
 ' Print text on Report object. 
 Rpt.Print strMessage 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.