CommandButton.FontSize-Eigenschaft (Access)

Verwenden Sie die FontSize-Eigenschaft , um die Punktgröße 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.

Ganze Zahl mit Lese-/Schreibzugriff.

Syntax

Ausdruck. Fontsize

Ausdruck Eine Variable, die ein CommandButton-Objekt darstellt.

HinwBemerkungeneise

Die FontSize-Eigenschaft verwendet die folgenden Einstellungen.

Einstellung Beschreibung
8 (Standardeinstellung für alle Berichte und Steuerelemente außer Befehlsschaltflächen) Der Text wird in Schriftgrad 8 Punkt erstellt.
10 (Standardeinstellung für Befehlsschaltflächen) Der Text wird in Schriftgrad 10 Punkt erstellt.
Sonstige Schriftgrade Der Text wird im angezeigten Schriftgrad erstellt.

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.

In Visual Basic legen Sie die FontSize-Eigenschaft mithilfe eines numerischen Ausdrucks fest, der dem gewünschten Schriftgrad entspricht. Die zulässigen Werte für die FontSize-Eigenschaft können zwischen 1 und 127 einschließlich liegen.

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.