| |
縦線は、連続していていいのなら、下記の方法がいいでしょう。
[ACC2002] レポートのセクションのサイズに比例して縦線が伸びない
support.microsoft.com/default.aspx?scid=kb;ja;286247&Product=accJPN
各レコード毎で途切れるのなら、下記を参考に。
[AC95] 印刷時拡張を設定したレポートで横罫線をそろえる方法
support.microsoft.com/default.aspx?scid=kb;ja;404907&wa=wsignin1.0
ページの最後に横罫線を引く場合は、
詳細セクションの最下部に直線コントロールを配置して、名前を Line1、可視をいいえにします。
下記のようなVBAになります。
上記の [ACC2002] レポートのセクションのサイズに比例して縦線が伸びない
のコードも組み込んであります。
レポートモジュール
Option Compare Database
Option Explicit
Dim LineBottom As Integer
'ページフォーマット時
Private Sub Report_Page()
Me.Line (0, Bottom)-(Me.Width, Bottom) '横罫線
LineTop = 0
End Sub
'詳細の印刷時
Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)
Me.ScaleMode = 1
Me.ForeColor = 0
'直線を繰り返し引きます。
'単位は 567 twip = 1 cm です。
Me.Line (0 * 567, 0) - (0 * 567, 14400)
Me.Line (1 * 567, 0) - (1 * 567, 14400)
Me.Line (1.9 * 567, 0) - (1.9 * 567, 14400)
LineBottom = Me.Top - Me.Printer.TopMargin + Me.Line1.Top'
End Sub
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
