詳細セッションに縦罫線を描く。line
詳細セクションの "OnPrint/印刷時" プロパティに次のイベント プロシージャを設定:
Private Sub Detail_Print(Cancel as Integer, PrintCount as Integer)
Me.ScaleMode = 1
Me.ForeColor = 0
'Repeat the following line of code for each vertical line
'1 * 1440 represents 1 inch.
Me.Line (0 * 1440, 0) - (0 * 1440, 14400)
Me.Line (1 * 1440, 0) - (1 * 1440, 14400)
Me.Line (1.9 * 1440, 0) - (1.9 * 1440, 14400)
Me.Line (5.5 * 1440, 0) - (5.5 * 1440, 14400)
'The 14400 is an arbitrary number to increase the line
'to the max of a section.
End Sub
参照URL： http://support.microsoft.com/default.aspx?scid=kb;JA;208429&Product=accJPN