全部显示

在打印或预览报表，或者将报表的输出保存为文件时，如果使用 Circle、Line、Pset 或 Print 方法，则可以使用 ScaleHeight 属性来指定页面的垂直度量单位数。Single 型，可读写。

expression.ScaleHeight

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

说明

默认设置是以缇为单位的报表页面内部高度。

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

使用 ScaleHeight 属性可以 创建一个绘图或打印用的自定义坐标刻度。例如，语句 ScaleHeight = 100 定义节的内部高度为 100 个单位，或者垂直坐标的单位为高度的 1/100。

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

将 ScaleHeight 属性设为正值会使坐标值从上往下增加，将其设为负值会使坐标值从下往上增加。

通过使用这些属性和相关的 ScaleLeft 和 ScaleTop 属性，可以建立一个有正、负坐标值的自定义坐标系统。共有四个这样的“刻度”属性，它们采用以下方法与 ScaleMode 属性交互作用：

 

另外，也可以在一个语句中使用 Scale 方法对 ScaleHeight、ScaleWidth、ScaleLeft 和 ScaleTop 属性进行设置。

注释 ScaleHeight 属性与 Height 属性不同。

示例

以下示例使用 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