printers コレクションについて

質問

任意のプリンターに出力するロジックを考え中です。
現在LANでつながった各コンピュータに接続されているプリンターを指定して
印刷しようと思い、以下のコードでオブジェクトを検索してみました。
-----------------------------------
Private Sub printerclick_Click()
Dim X As Printer
For Each X In Printers
Debug.Print X.DeviceName
Next
End Sub
-------------------------------------

検索結果は
---------------------------------
FAX
EPSON LP-1900
ALPS MD-5500
\\FREEZA\Canon LaserShot A304G2 LIPS3
\\FRONT\EPSON LP-1900
\\XIAOLONG2000\EPSON PM-3500C
------------------------------------
でした。

プリンターを指定する為に
set printer=printers(n)
を記述したのですが、この(n)は検索結果に表示された上から順に0～5なのでしょうか。このインデックスで迷っています。

回答No.1

nakashi · ベストアンサー

Private Sub Form_Load()
　 Dim lLoop As Long

　 For lLoop = 0 To Printers.Count - 1
　　 Debug.Print Printers(lLoop).DeviceName
　 Next lLoop
End Sub
で確認可能

お礼

ありがとうございました。 すっきりしました。

回答No.2

todo36

プリンターを指定するなら
set printer=x
でOK

お礼

おそくなりましたがありがとうございました。