(Access) 的 Report.CurrentY 屬性
使用 CurrentY 屬性 (以及 CurrentX 屬性) 來指定報表上下一個列印和繪圖方法開始位置的水準和垂直座標。 讀寫 Single。
語法
運算式。CurrentY
表達 代表 Report 物件的變數。
註解
例如,您可以使用這些屬性決定畫在報表區段上的圓之圓心位置。
座標是從 [報告] 區段中所包含的 CurrentX 或 CurrentY 屬性參照的左上角測量。 CurrentX 屬性設定為在區段的左邊緣、 0 和 CurrentY 屬性設定為 0 在其上邊緣。
您可以在報表區段的OnPrint屬性設定所指定的事件程序中設定CurrentX和CurrentY屬性。
使用 ScaleMode 屬性定義測量單位,例如點、 像素、 字元、 英吋、 英寸、 公釐或公分為單位,將會依據座標。
當您使用下列圖形方法時, CurrentX 和 CurrentY 屬性設定的變更如下。
方法 | 設定 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 支援與意見反應。