エクセルで印刷するプリンタを自動的に変更したい

質問

ネットワーク接続のプリンタが２台あります。
このうち片方のプリンタは、あるエクセルファイル専用出力にしたいのです。従いまして、当該エクセルファイルを印刷するときにだけ、自動的にそちらのプリンタから出力させるように制御したいのです。マクロか何かでそのような設定はできるのでしょうか。

回答No.2

hige_082 · ベストアンサー

マクロの記録に一工夫
１　マクロの記録開始
２　印刷－プリンタを変更して閉じる
３　マクロの記録終了
４　マクロの記録で出来たコードを修正
５　一度、保存して終了

'マクロの記録で出来たコード
Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2009/2/22 ユーザー名 :
'

'
Application.ActivePrinter = "XXXXX"　'←ここが使用したいプリンタ名になっているか確認
End Sub

マクロの記録で出来たコードを下記のように修正
Sub auto_open()　　'←修正個所
'
' Macro1 Macro
' マクロ記録日 : 2009/2/22 ユーザー名 :
'

'
Application.ActivePrinter = "XXXXX"
End Sub

詳細が分からないので、このマクロを設定したファイルを開くと
プリンタを指定したプリンタに変更する様にしています
幾つかファイルを開いて作業する場合は、注意が必要です
このマクロを設定したファイルを開いた時点で、プリンタが変更されます
ただ、OS、EXCELのバージョンによってはうまく行かない場合もあります

お礼

ありがとうございます。凄く参考になりました。
ついでにファイルを閉じたときに自動的にプリンタを元に戻すように設定しました。

回答No.1

orangezzzz

おはようございます。
試してませんが・・
マクロの記録を開始
印刷ダイアログを出してプリンタを変更
印刷
マクロの記録を終了
コマンドボタンを追加してマクロを登録
コレでどうですか。

お礼

ありがとうございます。参考になりました。