次の方法で共有

Report.Line メソッド (Access)

  • [アーティクル]

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

構文

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

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

パラメーター

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