CurrentY 属性

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

expression.CurrentY

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

说明

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

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

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

可以使用报表节的 OnPrint 属性设置指定的宏或 Visual Basic 事件过程来设置 CurrentX 和 CurrentY 属性。

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

在使用下列图形方法时，CurrentX 和 CurrentY 属性设置的更改如下。

方法	CurrentX、CurrentY 属性设置为
Circle	对象的中央。
Line	线条的终点 (x2、y2 坐标)。
Print	下一个打印位置。

示例

以下示例使用 Print 方法来显示名为“报表1”的报表上的文本。它使用 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