當 Print 事件發生時，PSet 方法會將 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 支援與意見反應。