任意のプリンターに出力するロジックを考え中です。
現在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なのでしょうか。このインデックスで迷っています。

このQ&Aに関連する人気のQ&A

A 回答 (2件)

プリンターを指定するなら


set printer=x
でOK
    • good
    • 0
この回答へのお礼

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

お礼日時:2001/11/08 10:50

Private Sub Form_Load()


  Dim lLoop As Long

  For lLoop = 0 To Printers.Count - 1
   Debug.Print Printers(lLoop).DeviceName
  Next lLoop
End Sub
で確認可能
    • good
    • 0
この回答へのお礼

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

お礼日時:2001/08/30 13:16

このQ&Aに関連する最新のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


このカテゴリの人気Q&Aランキング

おすすめ情報

カテゴリ