NavigationButton.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 NavigationButton-Objekt darstellt.
Hinweise
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.