Report.PSet メソッド (Access)

PSet メソッドは、印刷イベントが発生したときに、Report オブジェクト上の点を指定された色に設定します。

構文

式。PSet (フラグ、 x、 y、 色)

式: Report オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
Flags 必須 Integer 座標が、Object 引数の CurrentX プロパティおよび CurrentY プロパティの設定によって指定される現在のグラフィック位置を基準としていることを示すキーワード (keyword)。
x 必須 単精度浮動小数点型 (Single) 点の水平方向の座標値です。
y 必須 単精度浮動小数点型 (Single) 点の垂直方向の座標値です。
Color 必須 Long ポイントを設定する RGB (赤緑青) カラー。 この引数を省略すると、" ForeColor /前景色" プロパティの値が使われます。 また、色を指定する目的で、 RGB や QBColor 関数を使用できます。

戻り値

なし

解説

点の大きさは DrawWidth プロパティによって決まります。 DrawWidth プロパティが 1 の場合、 PSet メソッドは単一のピクセルを指定した色で表示します。 DrawWidth プロパティが 1 を超える場合には、点の中心が指定した座標値になるように表示されます。

点の描画方法は、 DrawMode と DrawStyle プロパティによって決まります。

PSet メソッドを使うと、 CurrentX プロパティと CurrentY プロパティは、引数 x および y で指定した点に設定されます。

PSet メソッドで 1 つのピクセルをクリアするには、ピクセルの座標を指定し、&HFFFFFF (white) を Color 引数として使用します。

例

次の例では、PSet メソッドを使って、レポートに水平方向の直線を描きます。

To try this example in Microsoft Access, create a new report. Set the OnPrint property of the Detail section to [Event Procedure]. レポートのモジュールに次のコードを入力し、[印刷プレビュー] に切り替えます。

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 のサポートおよびフィードバックを参照してください。

  • Last updated on