VBAでプリンタを変えたい。

質問

こんにちは。
WindowsXPでOffice2003を使用しています。
ちょっと困っているので、わかる方は知恵をお貸しください。

EXCEL VBAを使用し、プリントアウト等色々使っています。
当初は、印刷の時
「Application.ActivePrinter = "（プリンタ名） on NeXX:"」
としていたのですが、不都合があり「Printout」メソッドを
使うようにしました。

問題は、ここからです。
このあと、ポート名（on NeXX:）を使わずに、通常使うプリンタ
に戻す（印刷はしたくない）には、どのようにすれば良いのでしょうか。

わかりづらい質問で申し訳ございませんが、
よろしくお願いいたします。

回答No.1

mt2008 · ベストアンサー

Printoutの前に　String変数にActivePrinterの値を代入しておき、印字後にその変数の値でActivePrinterを再設定しては？

Sub Sample()
　Dim sPrinter As String
　sPrinter = Application.ActivePrinter '←ActivePrinter情報を変数に

　'印字処理（適当）
　ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
　　"CutePDF Writer on CPW2:", Collate:=True

　Application.ActivePrinter = sPrinter　'←ActivePrinterを設定

End Sub

お礼

早速の回答有難うございます。

変数を宣言し、そこにプリンタ名を代入するという手があるのですね。
参考になります。