CurrentY 属性

expandtri全部显示

使用 CurrentY 属性(和 CurrentX 属性一起)可以指定报表中下一个打印和绘图方法的起始位置的水平和垂直方向坐标。

expression.CurrentY

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

说明

例如,可以使用这些属性决定在报表中绘制圆的圆心位置。

CurrentY 属性指定的是一个 Single 值,该值用于在数值表达式中设置下一个打印和绘图方法起始位置的垂直坐标。

坐标值从报表节的左上角开始度量,该报表节的左上角为 CurrentXCurrentY 属性的参照坐标。在节的左边界 CurrentX 属性设为 0,在它的上边界 CurrentY 属性设为 0。

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

使用 ScaleMode 属性可定义坐标的度量单位,例如像素 、字符、英寸、毫米或厘米。

在使用下列图形方法时,CurrentXCurrentY 属性设置的更改如下。

方法

CurrentX、CurrentY 属性设置为

Circle

对象的中央。

Line

线条的终点 (x2、y2 坐标)。

Print

下一个打印位置。

 

示例

以下示例使用 Print 方法来显示名为“报表1”的报表上的文本。它使用 TextWidthTextHeight 方法,使文本在垂直和水平方向上居中。

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