Access VBA教程:CurrentX属性

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

expression.CurrentX

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

说明

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

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

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

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

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

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

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

VBA示例

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

上页:Access VBA教程:CurrentView属性 下页:Access VBA教程:CurrentY属性

Access VBA教程:CurrentX属性

Access VBA教程:CurrentY属性 Access VBA教程:Custom属性
Access VBA教程:Cycle属性 Access VBA教程:DataAccessPages属性
Access VBA教程:Database属性 Access VBA教程:DataChange属性
Access VBA教程:DataEntry属性 Access VBA教程:DataOnly属性
Access VBA教程:DataSetChange属性 Access VBA教程:DatasheetBackColor属性
Access VBA教程:DatasheetBorderLineStyle属性 Access VBA教程:DatasheetCellsEffect属性
Access VBA教程:DatasheetColumnHeaderUnderlineStyle属性 Access VBA教程:DatasheetFontHeight属性
Access VBA教程:DatasheetFontItalic属性 Access VBA教程:DatasheetFontName属性
Access VBA教程:DatasheetFontUnderline属性 Access VBA教程:DatasheetFontWeight属性
Access VBA教程:DatasheetForeColor属性 Access VBA教程:DatasheetGridlinesBehavior属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号