全部显示

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

expression.CurrentX

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

说明

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

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

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

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

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

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

 

示例

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