#287 特定のプリンタでレポートを印刷する レポート、VBA

"cboPrinterList"という名前のコンボボックスで選択されたプリンタを使ってレポートを出力するプログラム例です。

Applicationオブジェクトの「Printer」プロパティは、デフォルトプリンタを表します。それに指定のプリンタのPrinterオブジェクトをセットすることによって、そのプリンタでの印刷が可能となります。なお、コンボボックスにはPrinterオブジェクトのDeviceNameプロパティの値が入っているものとします。
Private Sub cmdPrint_Click()
'[印刷]ボタンクリック時

  Dim prtDefault As Printer

  '現在のプリンタ設定を退避
  Set prtDefault = Application.Printer
  '選択されたプリンタの情報を設定
  Set Application.Printer = Application.Printers(Me!cboPrinterList.Value)
  'レポートを開く
  DoCmd.OpenReport "rpt受注一覧"
  'プリンタ設定を元に戻す
  Set Application.Printer = prtDefault
  
End Sub
| Index | Prev | Next |



T'sFactory
Accessで動く生産管理DB
Ureru Express
Webで使う販売顧客管理
Access開発&アドバイス
DB開発やテクニカルアドバイス
Copyright © T'sWare All rights reserved