#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
この情報は参考になりましたか？、問題は解決しましたか？、もしまだなら......
T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします
