Private Sub A4ListPrint(Recset As Recordset)
Dim i, iPage As Integer ' ページ番号
' タイトルを印刷
A4PrintTitle
iPage = 0
Recset.MoveFirst ' レコードセットの先頭から繰り返す
Do While Recset.EOF = False
iPage = iPage + 1
A4PrintListHeader (iPage) ' ヘッダとページ番号を印刷
For i = 1 To MAXITEMS_ON_PAGE ' 1ページ分の印刷
If PrintOnePage(Recset) = False Then Exit For
Next i
Printer.NewPage
Loop
Printer.EndDoc
Recset.MoveFirst ' レコードを先頭に戻しておく
End Sub
|