通过

Report.CurrentX 属性 (Access)

  • 项目

使用 CurrentX 属性 (以及 CurrentY 属性) 指定报表上下一个打印和绘图方法的起始位置的水平坐标和垂直坐标。 读/写 Single。

语法

表达式。CurrentX

表达 一个代表 Report 对象的变量。

备注

例如，可使用这两个属性确定在报表节中绘制圆的圆心位置。

坐标是从包含对 CurrentX 或 当前 属性引用报表节的左上角开始计算的。 CurrentX 属性设置为 0，在该节的左边缘和 当前 属性设置为 0，其顶部边缘。

可以在由报表节的 OnPrint 属性设置指定的事件过程中设置 CurrentX 和 CurrentY 属性。

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

当您使用下面的图形方法时，所述更改 CurrentX 和 当前 属性设置。

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

示例

以下示例使用 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。