TextHeight 方法

TextHeight 方法返回在 Report 對象以當前字體打印時的文本字符串高度。

expression.TextHeight(Expr)

expression    必需。返回“應用于”列表中的一個對象的表達式。

Expr     必需 String 型。要對其確定文本高度的文本字符串。

說明

當設置報表格式或打印報表時，可以用 TextHeight 方法來決定使用當前字體的文本字符串所需要的垂直方向的空間大小。例如，設置為 9 磅 Arial 字體的文本字符串所需的空間與設置為 12 磅 Courier 字體的文本字符串所需的空間不一樣。要確定報表中文本所用的當前字體和字體大小，請檢查報表 FontName 和 FontSize 屬性設置。

由 TextHeight 方法返回的值用對報表有效的坐標系統(tǒng)來表達，坐標系統(tǒng)由 Scale 方法定義?？梢允褂?ScaleMode 屬性來確定報表中當前有效的坐標系統(tǒng)。

如果 strexpr 參數(shù)包含嵌入的回車符，TextHeight 方法將返回行的累計高度，包括每行上面和下面的前導空間。可以用由 TextHeight 方法返回的值來計算所需的空間，并確定報表中的多行文本的位置。

示例

下面的示例使用 TextHeight 和 TextWidth 方法來確定用報表當前字體來打印文本字符串所需的垂直和水平空間。

若要在 Microsoft Access 中試用該示例，請先創(chuàng)建一個新的報表，然后將主體節(jié)的 OnPrint 屬性設置為 [事件過程]。在報表模塊中輸入下列代碼，然后切換到“打印預覽”。

Private Sub Detail_Print(Cancel As Integer, _

    PrintCount As Integer)

    ' Set unit of measure to twips (default scale).

    Me.Scalemode = 1

    ' Print name and font size of report font.

    Debug.Print "Report Font: "; Me.FontName

    Debug.Print "Report Font Size: "; Me.FontSize

    ' Print height and width required for text string.

    Debug.Print "Text Height (Twips): "; _

        Me.TextHeight("Product Report")

    Debug.Print "Text Width (Twips): "; _

        Me.TextWidth("Product Report")

End Sub