スキルアップ・問題解決なら、モーグにおまかせ！

● 概要 ●
構文  expression.Line(Step(x1, y1)-Step(x2, y2), color, B/F)


設定項目        内容
expression	Reportオブジェクト［省略可能］
Step		対象となるオブジェクトのCurrentX/CurrentYプロパティの値を基	
		準として線の始点の座標値を指定する場合に記述するキーワード	
		［省略可能］
x1		線の始点のx座標を指定［省略不可］
y1		線の始点のy座標を指定［省略不可］
Step		線の始点の座標値を基準として終点の座標値を指定する場合に記述
		するキーワード［省略可能］
x2		線の終点のx座標を指定［省略不可］
y2		線の終点のy座標を指定［省略不可］
color		線の色を指定［省略可能］
B/F		長方形とするか、内側を塗りつぶすかをB/Fオプションで指定
		［省略可能］

レポートの詳細セクションのPrintイベントで、Lineメソッドを使用して、レコード間にラインを引きます。
Stepを省略すると、セクションの左上端を始点/終点の基準位置とします。
引数、<ｙ1>に線の始点の座標、、<ｙ2>に線の終点の座標を指定します。
数式で指定する場合の単位はtwipです。引数に線の色を指定します。


● サンプル ●
Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)
    '線の始点、終点のx座標、y座標を代入する変数を宣言
    Dim myStartX As Variant
    Dim myStartY As Variant
    Dim myEndX As Variant
    Dim myEndY As Variant
    '始点のx座標を指定
    myStartX = 0
    '始点のy座標を指定
    myStartY = Report_13.詳細.Height
    '終点のx座標を指定
    myEndX = Report_13.Width
    '終点のy座標を指定
    myEndY = Report_13.詳細.Height
    '線の位置を指定、色はオレンジ色と指定
    Line (myStartX, myStartY)-(myEndX, myEndY), RGB(250, 150, 50)
End Sub