通过

Report.CurrentY 属性 (Access)

  • 项目

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

语法

表达式。CurrentY

表达 一个代表 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。