Access VBA教程:ScaleHeight属性

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

expression.ScaleHeight

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

说明

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

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

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

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

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

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

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

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

VBA示例

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

上页:Access VBA教程:RunPermissions属性 下页:Access VBA教程:ScaleLeft属性

Access VBA教程:ScaleHeight属性

Access VBA教程:ScaleLeft属性 Access VBA教程:ScaleMode属性
Access VBA教程:ScaleTop属性 Access VBA教程:ScaleWidth属性
Access VBA教程:Scaling属性 Access VBA教程:Screen属性
Access VBA教程:ScreenTip属性 Access VBA教程:ScrollBarAlign属性
Access VBA教程:Section属性 Access VBA教程:Selected属性
Access VBA教程:SelectionChange属性 Access VBA教程:SelHeight属性
Access VBA教程:SelLeft属性 Access VBA教程:SelLength属性
Access VBA教程:SelStart属性 Access VBA教程:SelText属性
Access VBA教程:SelTop属性 Access VBA教程:SelWidth属性
Access VBA教程:ServerFilter属性 Access VBA教程:ServerFilterByForm属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号