#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'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします
 

Copyright © T'sWare All rights reserved