TextHeight 方法

TextHeight 方法返回在 Report 对象以当前字体打印时的文本字符串高度。

expression.TextHeight(Expr)

expression    必需。返回“应用于”列表中的一个对象的表达式。

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

说明

当设置报表格式或打印报表时,可以用 TextHeight 方法来决定使用当前字体的文本字符串所需要的垂直方向的空间大小。例如,设置为 9 磅 Arial 字体的文本字符串所需的空间与设置为 12 磅 Courier 字体的文本字符串所需的空间不一样。要确定报表中文本所用的当前字体和字体大小,请检查报表 FontNameFontSize 属性设置。

TextHeight 方法返回的值用对报表有效的坐标系统来表达,坐标系统由 Scale 方法定义。可以使用 ScaleMode 属性来确定报表中当前有效的坐标系统。

如果 strexpr 参数包含嵌入的回车符,TextHeight 方法将返回行的累计高度,包括每行上面和下面的前导空间。可以用由 TextHeight 方法返回的值来计算所需的空间,并确定报表中的多行文本的位置。

示例

下面的示例使用 TextHeightTextWidth 方法来确定用报表当前字体来打印文本字符串所需的垂直和水平空间。

若要在 Microsoft Access 中试用该示例,请先创建一个新的报表,然后将主体节的 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