リスト13:用紙サイズを設定して一覧印刷する
Private Sub PrintList(Recset As Recordset)
' 用紙サイズを設定
Printer.PaperSize = vbPRPSA4
A4ListPrint Recset
' プリンタの設定を復元
RestorePrinterSet
End Sub
本文へ戻る