通过

Report.TextHeight 方法 (Access)

  • 项目

TextHeight 方法返回文本字符串的高度，因为文本字符串将打印为 Report 对象的当前字体。

语法

表达式。TextHeight (Expr)

表达 一个代表 Report 对象的变量。

参数

名称 必需/可选 数据类型 说明
Expr 必需 字符串 要确定其文本高度的文本字符串。

返回值

单精度

备注

使用 TextHeight 方法确定在设置报表格式和打印报表时，文本字符串在当前字体中所需的垂直空间量。 例如，格式化 9 磅 arial 字体的文本字符串将需要不同数量的空间比 12 磅的 Courier 格式。 若要确定当前字体和报表中的文本的字体大小，请检查报表的 字体名称 和 字号 属性的设置。

TextHeight 方法返回的值以报表有效的坐标系表示，如 Scale 方法所定义。 使用 ScaleMode 属性确定当前对报表有效的坐标系。

如果 StrExpr 参数包含嵌入的回车符， 则 TextHeight 方法返回行的累积高度，包括每行上方和下方的前导空格。 使用 TextHeight 方法返回的值计算报表中多行文本的必要空间和位置。

示例

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

若要在 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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。