エクセルのVBAでプリンタを変更したいのですが・・・

解決済

質問者：yuyu-chan
質問日時：2002/10/23 09:47
回答数：1件

エクセルのマクロでプリンタを変更して印刷をしたいと思っています。
そこで、

　　(1) 利用できるプリンタ
　　(2) (1)のポート
　　(3) (1)のプリンタドライバ

を取得したいのですが、どうすればよいのでしょうか？
VBではプリンタオブジェクトを使って簡単に取得できるようなのですが、VBAでの方法がわかりません。
プリンタ設定ダイアログなどは表示せずに、APIなどを使ってできないものでしょうか？

どうぞよろしくお願いします。

【環境】Windows2000、Office2000

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

No.1ベストアンサー

回答者： bubu-chan
回答日時：2002/10/23 12:14

プリンタ名等の取得はAPIを使用すればできますが、単純にプリンタを変更したいだけなら、以下のようにしてはどうでしょう？

プリンタ名を指定するだけで、通常使うプリンタを変更してくれますよ。

Sub set_printer(byVal strPrinter as String)

Dim objPrinter As Object

Set objPrinter = CreateObject("WScript.Network")
objPrinter.SetDefaultPrinter strPrinter

End Sub

参考URL：http://member.nifty.ne.jp/aya/wsh/wsh26.htm