Report.FontSize 屬性 (Access)
在下列情況下，使用 FontSize 屬性來指定文字的點大小：
- 在表單及報表上顯示或列印控制項時。
- 當在報表上使用 Print 方法。
可讀寫的 Integer。
語法
運算式。FontSize
表達 代表 Report 物件的變數。
註解
FontSize 屬性使用下列設定值。
| 設定 | 描述 |
|---|---|
| 8 | (除了命令按鈕以外所有報表及控制項的預設值) 文字是以 8 點的類型顯示。 |
| 10 | (命令按鈕的預設值) 文字是以 10 點的類型顯示。 |
| 其他大小 | 文字以指定大小顯示。 |
您可以使用控制項的預設控制項樣式或 Visual Basic 中的 DefaultControl 屬性來設定這個屬性的預設值。
對於報表，您可以設定這個屬性只能在一個事件程序或在 OnPrint 事件屬性設定值所指定的巨集。
在 Visual Basic 中您要使用的字型所需的大小的數值運算式等於設定 FontSize 屬性。 FontSize 屬性的值可以是介於 1 到 127 個 (含) 之間。
範例
下列範例會使用 Print 方法來顯示名為 Report1 報表上的文字。 它會使用 TextWidth 和 TextHeight 方法來垂直和水平置中的文字。
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
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。