| title | keywords | f1_keywords | ms.prod | api_name | ms.assetid | ms.date | ||
|---|---|---|---|---|---|---|---|---|
Label.FontSize Property (Access) |
vbaac10.chm10211 |
|
access |
|
9b669364-ba6e-8b1a-7750-bf0c25b42e40 |
06/08/2017 |
You can use the FontSize property to specify the point size for text in the following situations:
-
When displaying or printing controls on forms and reports.
-
When using the Print method on a report.
Read/write Integer.
expression. FontSize
expression A variable that represents a Label object.
The FontSize property uses the following settings.
| Setting | Description |
|---|---|
| 8 | (Default for all reports and controls except command buttons) The text is 8-point type. |
| 10 | (Default for command buttons) The text is 10-point type. |
| Other sizes | The text is the indicated size. |
| You can set the default for this property by using a control's default control style or the DefaultControl property in Visual Basic. |
For reports, you can set this property only in an event procedure or in a macro specified by the OnPrint event property setting.
In Visual Basic, you set the FontSize property by using a numeric expression equal to the desired size of the font. The setting for the FontSize property can be between 1 and 127, inclusive.
The following example uses the Print method to display text on a report named Report1. It uses the TextWidth and TextHeight methods to center the text vertically and horizontally.
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