何が間違ってるのか教えていただけませんか？

質問

ＶＢＡエクセルです。
***********************************************
Sub OSのDefaultPrinterを取得()
Dim プリンタ As Object
Set プリンタ = CreateObject("WScript.Network")

Debug.Print プリンタ.SetDefaultPrinter
End Sub
***********************************************
を実行すると、
（Debug.Print プリンタ.SetDefaultPrinter）の部分で、
引数の数が一致していません。または不正なプロパティを指定しています。(Error 450)
となってしまいます。

どう修正すれば、現在のデフォルトのプリンター名を取得できるのでしょうか？

ちなみに
Sub tset()
Debug.Print ActivePrinter
End Sub
で取得出来る事は知っています。

ご回答よろしくお願いします。

回答No.3

nicotinism · ベストアンサー

プリンタの一覧を取得したり、デフォルトプリンタの設定を行うことは出来ても
デフォルトプリンタを取得することは出来ないようです。
海外で貴方と同じようなことを考えた方がいらっしゃいます。
『vbs get default printer』でGoogleりました。
レジストリを見るか、WMIで取得・・。
http://stackoverflow.com/questions/2273458/vbs-get-default-printer

お礼

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

回答No.2

notnot

SetDefaultPrinterは、名前の通りデフォルトプリンタを設定するメソッドで、デフォルトプリンタ名を取得するメソッドやプロパティではありません。

WScript.Networkオブジェクトを使ってのデフォルトプリンタ名取得の方法はないですね。

お礼

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

回答No.1

edomin7777

なぜ、「取得」しようとするのに、「Set～」を使うの？

SetDefaultPrinterメソッドは、通常使うプリンタを「設定」するために使います。

お礼

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