Report.Line メソッド (Access)

Line メソッドは、印刷イベントが発生したときに Report オブジェクトに線と四角形を描画します。

構文

式。線 (ステップ (x1, y1) - ステップ (x2, y2),色, BF)

expression 必須です。 Report オブジェクトを表す変数。 [適用先] リスト内のオブジェクトのいずれかを返す式です。

パラメーター

名前 データ型 説明
手順 Keyword 始点座標が、Object 引数の CurrentX プロパティおよび CurrentY プロパティの現在の設定によって指定される現在のグラフィックス位置を基準にしていることを示します。
x1、y1 単精度浮動小数点型 線または四角形の始点の座標を示します。 Object 引数で指定されている Report オブジェクトのスケール プロパティ (ScaleMode、ScaleLeft、ScaleTop、ScaleHeight、および ScaleWidth) によって、使用される測定単位が決まります。 この引数を省略した場合、行は CurrentX プロパティと CurrentY プロパティで示される位置から始まります。
x2、y2 単精度浮動小数点型 必須です。 直線または四角形の終点の座標を示します。 始点と終点はハイフン (-) で区切ってください。
Color Long 線の描画に使用される RGB (赤緑青) 色を示します。 この引数を省略すると、" ForeColor /前景色" プロパティの値が使われます。 また、色を指定する目的で、 RGB や QBColor 関数を使用できます。
B 座標を四角形の反対側の角として使用して四角形を作成するオプション。
F F は B なしでは使用できません。 B オプションを使用する場合、 F オプションは、四角形の描画に使用したのと同じ色で四角形を塗りつぶすことを指定します。 F を指定せずに B を使用すると、四角形には、FillColor プロパティと BackStyle プロパティの現在の設定で指定されている色が塗りつぶされます。 四角形および直線の場合、BackStyle プロパティの既定値は Normal です。

注釈

このメソッドは、レポート セクションの OnPrint または OnFormat イベント プロパティ、またはレポートの OnPage イベント プロパティで指定されたイベント プロシージャまたはマクロでのみ使用します。

折れ線を描画するには、(最初の直線を除く) 各直線の始点が前の直線の終点と一致するようにします。

描画される線の幅は、 DrawWidth プロパティの設定によって異なります。 背景に線または四角形を描画する方法は、 DrawMode プロパティと DrawStyle プロパティの設定によって異なります。

Line メソッドを適用すると、CurrentX プロパティと CurrentY プロパティは、x2 引数と y2 引数で指定された終点に再設定されます。

例

次の例では、 Line メソッドを使用して、 EmployeeReport という名前のレポートの端の内側に 5 ピクセル以内の赤い四角形を描画します。 線の色を赤くする目的で RGB 関数を使います。

Microsoft Access でこの例を試すために、 EmployeeReport という名前の新しいレポートを作成します。 レポートのモジュールの宣言セクションに次のコードを貼り付け、印刷プレビューに切り替えます。

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 
    ' Call the Drawline procedure 
    DrawLine 
End Sub 
 
Sub DrawLine() 
    Dim rpt As Report, lngColor As Long 
    Dim sngTop As Single, sngLeft As Single 
    Dim sngWidth As Single, sngHeight As Single 
 
    Set rpt = Reports!EmployeeReport 
    ' Set scale to pixels. 
    rpt.ScaleMode = 3 
    ' Top inside edge. 
    sngTop = rpt.ScaleTop + 5 
    ' Left inside edge. 
    sngLeft = rpt.ScaleLeft + 5 
    ' Width inside edge. 
    sngWidth = rpt.ScaleWidth - 10 
    ' Height inside edge. 
    sngHeight = rpt.ScaleHeight - 10 
    ' Make color red. 
    lngColor = RGB(255,0,0) 
    ' Draw line as a box. 
    rpt.Line(sngTop, sngLeft) - (sngWidth, sngHeight), lngColor, B 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。

  • Last updated on