#287
"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
'[印刷]ボタンクリック時
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
