| | ||
| | |||
| Access Tips | |||
   |
|||
 #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 |
|||
|
|
|||
| Copyright © T'sWare All rights reserved |   |