Worksheet_SelectionChangeで印刷プレビュー

イベントで印刷プレビューを表示

マクロ 03回

Worksheet_SelectionChangeのイベント

この記事で学べる内容

• Worksheet_SelectionChangeイベントを活用して、セル選択をトリガーに自動的に処理を実行する方法を学ぶ
• 特定のセル（例：G1）をクリックしたときに、印刷プレビューを表示するマクロを作成できる
• If文を使った条件分岐（Target.Addressでセル位置を判定する）構文を理解する
• ActiveSheet.PrintPreview メソッドを利用して、印刷プレビューを自動で開く方法を習得する
• SelectionChangeイベントを実用的な用途に応用する具体的なアイデア（印刷前チェック）を学ぶ
• Ctrl + P ショートカットの代わりに、自動で印刷プレビューを起動できる便利な設定を体験する
• Excel業務でのヒューマンエラー（印刷ミス）を防ぐための自動化アイデアを得る

Worksheet_SelectionChangeイベントの基本とカンタンなマクロを紹介しましたが、今度は少し実用的なマクロを紹介したいと思います。 特定のセルをクリックすると印刷プレビューを表示するというイベントマクロです。
『印刷プレビュー』で印刷イメージを確認しないで印刷したりすると、けっこうはみ出していたり、失敗がつきものです。
印刷プレビューと印刷のショートカットキーは、Ctrl ＋ P
覚えておくと便利ですが、今回はイベントで表示します。
（サンプルファイルは、ありませんが、下部にあるコードをコピーして張り付けてご利用いただけます。）

印刷プレビューのショートカット

1. 印刷プレビューと印刷のショートカットキー、Ctrl ＋ Pをクリックして印刷プレビューを表示します。

2. このようにショートカットキーで印刷プレビューを表示する習慣があるとミスも起りにくくなります。

3. Worksheet_SelectionChangeイベントで行う場合は、ターゲットとなるセルを指定しておき、そこに移動したら、プレビューを表示するというコードにします。

4. コードは、If文を使って、もしTarget.Addressが、G1ならと記述します。
そして、条件が合えば、ActiveSheet.PrintPreviewが実行されます。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address(0, 0) = "G1" Then
        ActiveSheet.PrintPreview
    End If
End Sub

5. G1セルをクリックすると、イベントが実行され、印刷プレビューが表示されました。