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