社内で複数のプリンタがあります、"複合機""ドットプリンタ""再生紙用プリンタ"などと名前を各クライアントに統一してつけて設定してあります、エクセルのVBAで特定のシートのみ"ドットプリンタ"で印刷するために
strAPtr = Application.ActivePrinter
で一旦通常のプリンタをバッファリングしておき
Application.ActivePrinter = "ドットプリンタ"
として印刷をかけ
Application.ActivePrinter = strAPtr
で戻すということをしたいのですが
このドットプリンタがクライアントPCによって
ActivePrinter = "ドットプリンタ on Ne02:"になったり
ActivePrinter = "ドットプリンタ on Ne00:"になったりクライアントによっては
ActivePrinter = "Ne00:のドットプリンタ"になったりして確定できません、
WinAPIを使ってプリンタの一覧の取得・・・という方法がありそうですがエクセルVBAで出来るのでしょうか、願わくばAPIを使わないで実現したいのですが知恵を貸してください
No.2ベストアンサー
- 回答日時:
No.3
- 回答日時:
一覧の取得は、以下で出来るのですが、
Set Win = CreateObject("Shell.Application")
For Each Obj_Item In Win.NameSpace(4).Items
MsgBox Obj_Item.Name
Next
本来は、「ドットプリンタ on Ne02」だとしても
「ドットプリンタ」しか返してくれないです。APIを使っても同様だった気がします。
以下のように、エラーを無効にして、プリンターを羅列してはどうでしょうか。一覧の中で有効だったプリンタに切り替わりますので。
On Error Resume Next
Application.ActivePrinter = "ドットプリンタ on Ne00:"
Application.ActivePrinter = "ドットプリンタ on Ne01:"
Application.ActivePrinter = "ドットプリンタ on Ne02:"
On Error Goto 0
アドバイスありがとうございます
実はこの手法やっていたのですが
(10個くらい作って・・・)クライアントによっては
"Ne02:のドットプリンタ"とかが出てきて
クライアントがどの名前で出てくるか
予想できません、予想できれば対策できるのですが
No.1
- 回答日時:
Excel VBAではやはりむずかしいのではと思います。
WMIやAPIを使用する以外は方法がないのでは?
http://www.geocities.co.jp/Technopolis/2082/Soft …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- プリンタ・スキャナー もともとWi-Fi仕様ではないプリンタを、Wi-Fi経由で印刷できるようにできますか。 6 2022/06/24 21:32
- プリンタ・スキャナー 印刷 キャンセル&印刷できない 2 2022/11/29 16:45
- プリンタ・スキャナー 佐川急便のプリンターで印刷用の送り状が印刷時に詰まる 2 2022/11/23 18:25
- プリンタ・スキャナー プリンタを無線化したい 7 2023/04/08 06:25
- その他(教育・科学・学問) 技術のテストの問題です。やり方を教えてください! 間1.7バイトは何ビットか。 間2.5ビットで表現 4 2023/02/27 00:09
- プリンタ・スキャナー 複合機プリンタではないプリンタの場合、スキャナーは単体で買わないといけないのですか。 複合機だと、何 6 2023/05/24 20:08
- プリンタ・スキャナー エプソンのプリンタEP-879AWを使っていますが印刷文字がぼやけます。 家電量販店で写真印刷がメイ 4 2022/03/26 23:20
- プリンタ・スキャナー もともとWi-Fi仕様ではないプリンタの背面USB端子に挿すとWi-Fi経由で印刷できるドングル 6 2022/07/01 21:51
- プリンタ・スキャナー 家庭用でたまに使うプリンタの故障で 4 2022/06/08 17:19
- Word(ワード) Word文書のドラッグ操作による配置調整。 1 2022/10/16 19:24
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの余白の塗りつぶし方法
-
同機種のプリンターを買った場...
-
「指定したPPDは無効です」でプ...
-
印刷プレビューにない文字が印...
-
太文字が印刷されない。
-
マクロでプリンタ、用紙、給紙...
-
プリンタをBluetoothで無線化し...
-
印刷をしようとするとFAX送...
-
PDFの印刷が出来ません
-
印刷しようとすると「保存」が...
-
エクセルマクロ印刷時にプリン...
-
アプリごとに通常使うプリンタ...
-
プリンタがまだ応答していません。
-
複数のシートを一括で手差し→自...
-
プリンターの使用をパスワード...
-
プリンタドライバについて
-
エクセルの用紙サイズについて...
-
印刷できません。
-
ワードで背景を入れたのですが...
-
ドキュメント保留表示により印...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
同機種のプリンターを買った場...
-
エクセルの余白の塗りつぶし方法
-
マクロでプリンタ、用紙、給紙...
-
左右反転印刷は?
-
あなたは日常生活上、家庭用プ...
-
印刷しようとすると「保存」が...
-
印刷プレビューにない文字が印...
-
「指定したPPDは無効です」でプ...
-
エクセルの「赤」の印刷がうま...
-
エクセルの用紙サイズについて...
-
プリンターについて
-
複数のシートを一括で手差し→自...
-
プリンタをBluetoothで無線化し...
-
印刷のマークが消えてしまった
-
プリントサイズがつねにA3サイズ
-
プリンターが見つかるのに、接...
-
印刷するときだけパソコンの電...
-
ワードで背景を入れたのですが...
-
ワードで作成した文書を他のP...
-
太文字が印刷されない。
おすすめ情報