Access VBA教程:TextHeight方法

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

expression.TextHeight(Expr)

expression  必需。返回“Applies To”列表中的一个对象的表达式。

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

说明

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

由 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

上页:Access VBA教程:SysCmd方法 下页:Access VBA教程:TextWidth方法

Access VBA教程:TextHeight方法

Access VBA教程:TextWidth方法 Access VBA教程:TransferSQLDatabase方法
Access VBA教程:Undo方法 Access VBA教程:UseDefaultFolderSuffix方法
Access VBA教程:AccessObject对象 Access VBA教程:AccessObjectProperty对象
Access VBA教程:AllFunctions集合 Access VBA教程:Application对象
Access VBA教程:BoundObjectFrame对象 Access VBA教程:CheckBox对象
Access VBA教程:CodeData对象 Access VBA教程:CodeProject对象
Access VBA教程:ComboBox对象 Access VBA教程:CommandButton对象
Access VBA教程:Control对象 Access VBA教程:CurrentData对象
Access VBA教程:CurrentProject对象 Access VBA教程:CustomControl对象
Access VBA教程:DataAccessPage对象 Access VBA教程:DefaultWebOptions对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号