|
パソコンに接続されているプリンター名を習得したいと思います
アクテブプリンターであれば 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にはこだわっていません
プリンター名の収集について どなかか 教えていただけないでしょうか
|
|