使用 CurrentX 属性 (以及 CurrentY 属性) 指定报表上下一个打印和绘图方法的起始位置的水平坐标和垂直坐标。 读/写 Single。
语法
表达式。CurrentX
表达 一个代表 Report 对象的变量。
备注
例如，可使用这两个属性确定在报表节中绘制圆的圆心位置。
坐标是从包含对 CurrentX 或 当前 属性引用报表节的左上角开始计算的。 CurrentX 属性设置为 0，在该节的左边缘和 当前 属性设置为 0，其顶部边缘。
可以在由报表节的 OnPrint 属性设置指定的事件过程中设置 CurrentX 和 CurrentY 属性。
使用 ScaleMode 属性可以定义度量单位，如磅、 像素、 字符、 英寸、 毫米或厘米，将基于坐标。
当您使用下面的图形方法时，所述更改 CurrentX 和 当前 属性设置。
| 方法 | CurrentX、CurrentY 属性设置为 |
|---|---|
| Circle | 对象的中心。 |
| Line | 线条的终点 (x2、 y2 坐标) 。 |
| 下一个打印位置。 |
示例
以下示例使用 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
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。