申し訳ありません。hatenaさんを参考にしました。
レポートの詳細ページに、左隅と右隅に縦線を作成しました。
ページの最終行まで罫線を表示しました。
モジュールに以下のコードです
Public Function PageDrawLine(PageRows As Integer)
Dim SecHeight As Single, SecTop As Single
Dim ctl As Control
Dim I As Integer
Const boldSize = 8
With CodeContextObject
.ScaleMode = 1
SecHeight = .Section(acDetail).Height
SecTop = .Section(acPageHeader).Height
For Each ctl In .Controls
If ctl.Section = acDetail And ctl.ControlType = acLine Then
ctl.Visible = False
If ctl.BorderStyle = 1 Then
.DrawStyle = 0
Else
.DrawStyle = 2
End If
If ctl.BorderWidth = 0 Then
.DrawWidth = 1
Else
.DrawWidth = boldSize
End If
For I = 0 To PageRows - 1
CodeContextObject.Line (ctl.Left, SecTop + ctl.Top + SecHeight * I)-Step(ctl.Width, ctl.Height), ctl.BorderColor
Next I
End If
Next ctl
End With
End Function
プロパティの
ページフォーマット時に 「=PageDrawLine(47)」のコードを入力。
２つの縦線が47行目まで表示されました。
横線の設定は不要としました。
最終行のふたつの縦線を結びたいのですが。
４７行目に横線を表示したいのですが。
ご指導よろしくお願いします
