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

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

ＶＢＡコードは
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 回答日時： 2012/12/14 11:45

いくつか方法が有るかと思いますが

その内の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 …

この回答へのお礼

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

お礼日時：2012/12/19 20:10

No.2 回答者： nicotinism 回答日時： 2012/12/15 11:59

追伸

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

この回答へのお礼

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

お礼日時：2012/12/19 20:10