Report.Scale 方法 (Access)

Scale 方法定義 Report 物件的座標系統。

語法

運算式。調整 (旗標、 x1、 y1、 x2、 y2)

表達 代表 Report 物件的變數。

參數

名稱	必要/選用	資料類型	描述
Flags	必要	Integer
x1	必要	Single	此為水平座標值，定義物件左上角的位置。
y1	必要	Single	定義物件左上角位置的垂直座標值。
x2	必要	Single	此為水平座標值，定義物件右下角的位置。
y2	必要	Single	此為垂直座標值，定義物件右下角的位置。

傳回值

無

註解

只有在報表區段的 OnPrint 或 OnFormat 事件屬性所指定的事件程序或宏中，或報表的 OnPage 事件屬性中，才使用這個方法。

使用 Scale 方法，將座標系統重設為您選擇的任何縮放比例。 使用沒有引數的 Scale 方法會將座標系統重設為 twip。 Scale 方法會影響 Print 方法與報表圖形方法，包括 圓形 、 線條 和 PSet 方法的座標系統。

範例

下列範例會繪製具有一個尺規的圓形，然後使用 Scale 方法來變更尺規，並使用新的尺規繪製另一個圓形。

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 
 DrawCircle 
End Sub 
 
Sub DrawCircle() 
 Dim sngHCtr As Single, sngVCtr As Single 
 Dim sngNewH As Single, sngNewV As Single 
 Dim sngRadius As Single 
 
 Me.ScaleMode = 3 ' Set scale to pixels. 
 sngHCtr = Me.ScaleWidth / 2 ' Horizontal center. 
 sngVCtr = Me.ScaleHeight / 2 ' Vertical center. 
 sngRadius = Me.ScaleHeight / 3 ' Circle radius. 
 ' Draw circle. 
 Me.Circle (sngHCtr, sngVCtr), sngRadius 
 ' New horizontal scale. 
 sngNewH = Me.ScaleWidth * 0.9 
 ' New vertical scale. 
 sngNewV = Me.ScaleHeight * 0.9 
 ' Change to new scale. 
 Me.Scale(0, 0)-(sngNewH, sngNewV) 
 ' Draw circle. 
 Me.Circle (sngHCtr + 100, sngVCtr), sngRadius, RGB(0, 256, 0) 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。