Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


38160 / 76732 ←次へ | 前へ→

【43715】プリンター名の習得
質問  hwata  - 06/10/23(月) 15:55 -

引用なし
パスワード
   パソコンに接続されているプリンター名を習得したいと思います

アクテブプリンターであれば Application.ActivePrinter を使えば表示できるのですが

そうでないプリンターに関しては
VBA質問箱で WSH を 教えていただき その中から EnumPrinterConnections を使い
  CreateObject("WScript.Network").EnumPrinterConnections.Count
     でプリンター接続件数を取得し
  CreateObject("WScript.Network").EnumPrinterConnections.Item(i + 1)
     でプリンター名を 取得しました

XP だと プリンター名の後に on neXX がつくと思います (例 LS-6800 on Ne02)
Application.ActivePrinter だと LS-6800 on Ne02 と取得できるのですが
CreateObject("WScript.Network").EnumPrinterConnections.Item(i + 1)
を使うと LS-6800 となり on Ne02 の部分が取得できません
WSHに関してホームページを検索してみたのですが 答えは見つかりません

WSHにはこだわっていません
プリンター名の収集について どなかか 教えていただけないでしょうか
0 hits

【43715】プリンター名の習得 hwata 06/10/23(月) 15:55 質問
【43716】Re:プリンター名の習得 Blue 06/10/23(月) 16:00 発言
【43802】Re:プリンター名の習得 hwata 06/10/26(木) 9:41 お礼
【43807】Re:プリンター名の習得 Blue 06/10/26(木) 10:16 発言
【43719】Re:プリンター名の習得 ichinose 06/10/23(月) 16:42 発言
【43800】Re:プリンター名の習得 hwata 06/10/26(木) 9:38 お礼
【43801】Re:プリンター名の習得 hwata 06/10/26(木) 9:38 お礼

38160 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free