プリンターを指定して印刷するには

質問

アクセスです。
フォームのコマンドボタンをクリックしてレポートを開きます。

ＶＢＡコードは
Private Sub コマンド0_Click()
DoCmd.OpenReport "レポート1"
End Sub
です。

レポートが開いたら、自動で印刷されますが、
それは、通常使うプリンタに設定しているプリンタで印刷されてしまいます。

そうではなく、
Bullzip PDF PrinterでＰＤＦ化させたいのですが、
レポートのイベントで、
Private Sub Report_Open(Cancel As Integer)
End Sub
で、プリンタを指定することは可能でしょうか？

通常使うプリンタは
Bullzip PDF Printerにはしたくないのです。
わがまま言ってごめんなさい。

回答No.1

nicotinism · ベストアンサー

いくつか方法が有るかと思いますが
その内のApplication（Access）レベルで一時的に変更する例です。
扱いやすいようにアレンジしてみてください。

Sub Bullzipで印刷()
Dim Prnt As Printer
Dim PrntDefo As String '既定のプリンタ名

'現在のプリンタ名をセット
PrntDefo = Application.Printer.DeviceName

'用意されているプリンタ一覧をイミディエイトウィンドウに出力し確認
For Each Prnt In Application.Printers
Debug.Print Prnt.DeviceName
Next

Application.Printer = Printers("上記の中から名前を此処に、Bullzip PDF Printerかな？")

'印刷処理をここへ

'元に戻す
Application.Printer = Printers(PrntDefo)
End Sub

詳しくはこちらをどうぞ
Microsoft Access 2002 でのプリンタ設定のプログラミング
http://msdn.microsoft.com/ja-jp/library/cc325884.aspx

お礼

回答ありがとうございました。

回答No.2

nicotinism

追伸
『印刷』のところは『出力』に読み替えてください。

お礼

回答ありがとうございました。