【Excel VBA】【マクロ】【Tips】複数シートをまとめて印刷プレビューする

こんにちは！Lenocoです。本日も見てくださりありがとうございます。

今回は「複数シートを一度に印刷プレビューするマクロ」を紹介します。

複数シートを一度に印刷プレビューする

通常、VBAで ActiveSheet.PrintPreview を使うと1枚のシートしかプレビューできませんが、
配列で複数シートを指定すればまとめてプレビューできます。
Sheets型の配列、Variant型の配列の2パターンをご紹介します。

コード①（Sheets型）

Sub PreviewMultipleSheets1()

    Dim printWSArray As Sheets
    
    Set printWSArray = Sheets(Array("Sheet1", "Sheet2", "Sheet3"))
    printWSArray.PrintPreview
    
End Sub

コード②（Variant型）

Sub PreviewMultipleSheets2()
    
    Dim printWSArray As Variant
    
    printWSArray = Array("Sheet1", "Sheet2", "Sheet3")
    Worksheets(printWSArray).PrintPreview
    
End Sub

コードの説明

Sheets型またはVariant型の変数を宣言します。
変数に、印刷プレビューをしたいシート名を配列で格納します。
PrintPreviewメソッドを使い、印刷プレビューをします。
（型によって書き方が若干違うので注意してください）

さいごに

どちらも同様の動きをします。
このコードを使うことで、複数のレポートをまとめて確認・印刷できます。
簡単な工夫で作業効率がぐっと上がります！
ぜひ使ってみてください。

Lenoco