出力するプリンタを指定したい。

質問

現在、ＶＢ６．０で開発を行い、帳票をＡＣＣＥＳＳのレポートを使用しています。

レポートを印刷した際に、ＶＢ側より指定したプリンタに出力したいのですが、決まって通常使うプリンタに出力されてしまいます。
プリンタは指定できない物なのでしょうか？

ちなみに指定している方法は、デバイス名を記述し、設定されているプリンタを検索し、合うプリンタがあれば、その番号(?)を
Set Printer = ＸＸＸ（番号）
　　　　　　　　　↑忘れました、ごめんなさい。

と言うような形でコーディングしています。

回答No.2

arata · ベストアンサー

私は、こんな感じにしています。

Private Sub Command1_Click()
Dim prt As Printer
Set Prt = Printer
For Each prt In Printers
If prt.DeviceName = "プリンタのデバイス名" Then
Set Printer = prt
Exit For
End If
Next
Printer.Print "テスト印字"
Printer.EndDoc
End Sub

お礼

どうもＡｃｃｅｓｓにはＶＢ側からのＳＥＴ　～　を使用しての
プリンタ指定は出来ないようです。
（ＡＣＣＥＳＳのレポートで指定したプリンタが正となる？）
なのでＡＰＩを使用してプリンタの指定を行いました。
回答ありがとうございました。

回答No.1

bin-chan

変数[Printer]は型[Printer]で宣言なさってますか？

Printersコレクションあたりがキーワードのように思います。

お礼

どうもＡｃｃｅｓｓにはＶＢ側からのＳＥＴ　～　を使用しての
プリンタ指定は出来ないようです。
（ＡＣＣＥＳＳのレポートで指定したプリンタが正となる？）
なのでＡＰＩを使用してプリンタの指定を行いました。
回答ありがとうございました。