VBScriptで、開かれているWord文書の現在のページを印刷する

Word文書が開かれている時に、現在のページを印刷します。
Word画面の上のバー(クイックアクセスツールバー)にすぐ印刷するボタンを表示できますが、直前に他の文書を開いて10枚印刷したりすると、同時に開かれている他の文書に影響を与えて予期せぬ出来事がもたらされたりしますので、それって面倒と感じた時に作りました。

下のスクリプトを[Printout.vbs]等 .vbs の拡張子で保存して、実行します。
なお、Wordが起動していないとエラーがでます。

Set objWord = GetObject(,"Word.Application")
objWord.ActiveDocument.PrintOut ,,2,,,,,1

2行目の[2]が現在のページの指定で、それを[0]にすると全ページ印刷されます。
2行目最後の[1]は印刷するのは1枚ということです。

VBAだと、もっとわかりやすい書き方が可能です。

Sub PrintCurrentPage()
' 現在のページを印刷
Application.PrintOut Range:=wdPrintCurrentPage, Copies:=1
End Sub

これをクイックアクセスツールバーに登録するという手もアリかな。。

タイトルとURLをコピーしました