複数のシートを選択して印刷画面を開くコード（Excel VBA）

投稿日：2022年2月12日

複数のシートを選択して印刷画面を開くコードです。

    Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
    Application.CommandBars.ExecuteMso "PrintPreviewAndPrint"

1 2	Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select Application.CommandBars.ExecuteMso "PrintPreviewAndPrint"

ファイル→印刷　をクリックしたときの画面を開くことができるので、
微調整して印刷することができます。

また、次のような感じでコードで細かく指定することもできます。

    '印刷範囲を選択
    Worksheets("Sheet1").PageSetup.PrintArea = "A1:D7"
    Worksheets("Sheet2").PageSetup.PrintArea = "A1:D7"
    Worksheets("Sheet3").PageSetup.PrintArea = "A1:D7"
    
    Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
    Application.CommandBars.ExecuteMso "PrintPreviewAndPrint"
    
    '全ての列を１ページに印刷
    With Worksheets("Sheet1").PageSetup
        .Zoom = False
        .FitToPagesWide = 1
    End With
    With Worksheets("Sheet2").PageSetup
        .Zoom = False
        .FitToPagesWide = 1
    End With
    With Worksheets("Sheet3").PageSetup
        .Zoom = False
        .FitToPagesWide = 1
    End With

'印刷範囲を選択

Worksheets("Sheet1").PageSetup.PrintArea = "A1:D7"

Worksheets("Sheet2").PageSetup.PrintArea = "A1:D7"

Worksheets("Sheet3").PageSetup.PrintArea = "A1:D7"

Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select

Application.CommandBars.ExecuteMso "PrintPreviewAndPrint"

'全ての列を１ページに印刷

With Worksheets("Sheet1").PageSetup

.Zoom = False

.FitToPagesWide = 1

End With

With Worksheets("Sheet2").PageSetup

.Zoom = False

.FitToPagesWide = 1

End With

With Worksheets("Sheet3").PageSetup

.Zoom = False

.FitToPagesWide = 1

End With