以下は、動作保証をしないので、自己責任で確認のこと。プログラム等その他により生じたいかなる損害等その他について、責任を負いませんので、予めご了承してください。Microsoftのサイトの「文書の PrintOut メソッド (Word)」等その他のHelpファイルを使いやすくメモ。マイクロソフトのアドレスはそのうち変化してしまうため、注意が必要。
Option Explicit Public Sub test_PrintOut() If Application.PrintPreview = False Then ActiveDocument.PrintPreview End If' ActivePrinter = "プリンタ名" ActiveDocument.ActiveWindow.PrintOut ManualDuplexPrint:=True, PrintZoomColumn:=2End Sub©Hirotoshi Takano