１枚のwordファイルにだけ印刷設定を保存したい

Ａ４サイズの封筒に宛名印刷をする際に、プリンタのプロパティで、「180度回転」にチェックマークを入れてから印刷しています。

たまに、チェックマークを入れるのを忘れて、封筒の上下とは逆に宛名が印刷されてしまい、封筒が無駄になってしまうことがあります。

そこで印刷の都度、チェックマークを入れずにすむように、
この宛名印刷のwordファイルだけ、印刷の設定を保存したいと思うようになりました。

どうやったら、このファイルだけ「180度回転」にチェックマークが入ったままにして、ファイルを保存できるのでしょうか？

No.1 回答者： koko88okok 回答日時： 2011/03/13 17:50

> どうやったら、このファイルだけ「180度回転」にチェックマークが入ったままにして、ファイルを保存できるのでしょうか？

　
印刷の設定は、個々のファイルに保存されているのではなく、プリンタのドライバに依存します。
従って、「180度回転」して拙い印刷物がなければ、プリンタのドライバに「180度回転」を設定しておけばよいのではないでしょうか？
　
設定(例)
　
1) 「スタート」ボタン→「プリンタ」をクリックします。
2) 表示されるダイアログで、「通常使うプリンタに設定」されているプリンタを右クリックします。
3) 「印刷設定」をク選択すると「プリンタ名の印刷設定」のダイアログが表示されますので、「180度回転」を設定します。

No.2 ベストアンサー 回答者： enunokokoro 回答日時： 2011/03/13 22:46

Wordのバージョンによっては機能しないかもしれませんが。

Wordの差し込み印刷におけるコマンドは MailMergeToPrinter が
印刷するときには実行されます。
このコマンドを実行するときにアクティブプリンタを変更して、
実行後に元のプリンタに戻すマクロで可能かもしれません。
[ 180度回転]のチェックがついたプリンタを追加しておく事前の
準備が必要です。（ [プリンタの追加]で用意 ）

マクロは以下のようなものです
Word VBEの ThisDocument に登録します。

Sub MailMergeToPrinter()
'
' 差し込み印刷の結果を変更したプリンタに出力します。
'
Dim aPrinter As String
Dim mmTemp As MailMerge
Set mmTemp = ActiveDocument.MailMerge

　' 通常使うプリンタを取得します
　　aPrinter = ActivePrinter
　' 180度回転のチェックがあるプリンタ名に変更します
　　ActivePrinter = "用意したプリンタ名"

　If mmTemp.State = wdMainAndDataSource Then
　　mmTemp.Destination = wdSendToPrinter
　　mmTemp.Execute
　End If

　' 通常使うプリンタに戻します
　ActivePrinter = aPrinter

End Sub

このマクロはWord VBAのヘルプと過去ログから参照して
書いていますので、中身の細かい仕様について知らない
部分もあります。
http://oshiete.goo.ne.jp/qa/5727316.html
うまく動かなくて補足されても、仕様のわからない部分
について追加回答できない場合があります。

ちなみに[プリンタの追加]についてはOSに依存します。
[ 180度回転]などのプリンタのプロパティから設定する
ものは、専用のプリンタとして[コントロールパネル]に
登録しないと、Word側からは操作できないと思います。
Wordの[印刷]ダイアログにある設定だけなら、Word側の
設定だけで済みます。