リスト13:用紙サイズを設定して一覧印刷する


Private Sub PrintList(Recset As Recordset)
  ' 用紙サイズを設定
  Printer.PaperSize = vbPRPSA4
  A4ListPrint Recset
  ' プリンタの設定を復元
  RestorePrinterSet
End Sub


本文へ戻る