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

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

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

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

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

No.2 ベストアンサー 回答者： arata 回答日時： 2001/10/14 23:33

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

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

この回答へのお礼

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

お礼日時：2001/10/17 20:52

No.1 回答者： bin-chan 回答日時： 2001/10/10 02:12

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

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

この回答へのお礼

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

お礼日時：2001/10/17 20:54