通过

Report.ScaleHeight 属性 (Access)

  • 项目

使用 ScaleHeight 属性指定在打印或预览报表时使用 Circle、 Line、 Pset 或 Print 方法时，或其输出保存到文件时页面的垂直度量单位数。 读/写 Single。

语法

表达式。ScaleHeight

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

备注

默认设置是报表页的内部高度（ 以 twips 为单位）。

可以使用宏或由节的 OnPrint 属性设置指定的 Visual Basic 事件过程来设置 ScaleHeight 属性。

使用 ScaleHeight 属性创建用于绘图或打印的自定义坐标刻度。 例如，语句 ScaleHeight = 100将节的内部高度定义为 100 个单位或高度的百分之一作为一个垂直度量。

使用 ScaleMode 属性可以定义一个基于标准测量单位的如磅、 像素、 字符、 英寸、 毫米或厘米刻度。

将 ScaleHeight 属性设为正值，使增加值从上到下的坐标。 将其设为负值，使增加值从底部到顶部的坐标。

通过使用这些属性和相关的 ScaleLeft 和 距离 属性，您可以设置自定义的坐标系统使用正值和负值的坐标。 所有这四个比例属性按以下方式使用 ScaleMode 属性进行交互:

  • 任何其他扩展属性设置为任何值自动设置 ScaleMode 属性为 0。

  • ScaleMode 属性设置为大于 0 的 ScaleHeight 和 ScaleWidth 属性将更改为新的度量单位，并将 ScaleLeft 和 距离 属性设置为 0。 此外， CurrentX 和 当前 属性设置更改以反映当前点的新坐标。

您还可以使用 Scale 方法将 ScaleHeight 、 ScaleWidth 、 ScaleLeft 和 距离 属性设置在一个语句中。

注意

[!注释] ScaleHeight 属性不一样的 高度 属性。

示例

以下示例使用 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。