Fioの素敵な日々

日々の出来事や何やらをつれづれに

Wordの一番上のツールバーに現在のページを印刷のボタンをつける

Wordの一番上のツールバー(クイックアクセスツールバー)に現在のページを(1部)印刷するボタンをつける方法です。

現在開いている Word 文書を 1 部のみ印刷するマクロを実行するためのボタンをクイック アクセス ツール バーに追加して印刷を行います。とりあえず2010用

1.Word を起動します
2.Alt + F11 キーを同時に押して Visual Basic エディターを開きます
3.プロジェクト エクスプローラで "Normal" を選択します
4.[挿入] メニューから [標準モジュール] をクリックして追加します
5.以下のコードをコピーして貼り付けます

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

6.Visual Basic エディターを閉じます
7.[ファイル] タブの [オプション] をクリックして [Word のオプション] 画面で [クイック アクセス ツールバー] の項目を選択します
[コマンドの選択] で "マクロ" を選択します
8.一覧から "Normal.Module1.PrintCurrentPage" を選択して [追加] ボタンをクリックします
9.[変更] ボタンでボタンや表示名を編集します
10.[Word のオプション] 画面を [OK] ボタンをクリックして閉じます
クイックアクセス ツール バーに追加されたボタンをクリックして 1 部のみ印刷を行います

5.のコードで、1部印刷にわざわざ指定しているのは、Word2010のクイック印刷に他の文書の部数の影響を受けたりするよくわからない仕様があり、念のためです。