(Access) 的 Report.PSet 方法

PSet 方法會在 Print 事件發生時，將 Report 物件上的點設定為指定的色彩。

語法

表達式。PSet (旗標、 x、 y、 色彩)

表達 代表 Report 物件的變數。

參數

名稱	必要/選用	資料類型	描述
Flags	必要項目	整數	關鍵詞，表示座標相對於 Object 自變數之 CurrentX 和 CurrentY 屬性的設定所指定的目前圖形位置。
x	必要	Single	要設定的點之水平座標。
y	必要	Single	要設定的點之垂直座標。
Color	必要	Long	RGB (要設定點的紅-綠-藍) 色彩。 如果省略此引數，則會使用 ForeColor 屬性的值。 您也可以使用 RGB 函數或 QBColor 函數來指定色彩。

傳回值

無

註解

點的大小取決於 DrawWidth 屬性設定值。 當 DrawWidth 屬性設為 1 時， PSet 方法會將指定的色彩單像素。 DrawWidth 屬性大於 1 時，則點是在所指定座標上置中對齊。

繪製資料點的方法取決於 DrawMode 和 DrawStyle 屬性的設定。

當您套用 PSet 方法時， CurrentX 和 CurrentY 屬性設定為 x和 y引數所指定的點。

若要使用 PSet 方法清除單一圖元，請指定圖元的座標，並使用 &HFFFFFF (白色) 做為 Color 自變數。

範例

下列範例使用 PSet 方法來透過報表的水平軸繪製直線。

若要在 Microsoft Access 中嘗試此範例，請建立一個新報表。 將詳細資料區段的 OnPrint 屬性設定為 [事件程序]。 在報表的模組中輸入下列程式代碼，然後切換至 [列印預覽]。

Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 
 Dim sngMidPt As Single, intI As Integer 
 ' Set scale to pixels. 
 Me.ScaleMode = 3 
 ' Calculate midpoint. 
 sngMidPt = Me.ScaleHeight / 2 
 ' Loop to draw line down horizontal axis pixel by pixel. 
 For intI = 1 To Me.ScaleWidth 
 Me.PSet(intI, sngMidPt) 
 Next intI 
End Sub

支援和意見反應

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