ExcelVBA 出力するページ範囲や特定シートのページ設定を操作する方法

以下のようなシーンで利用で表示します。

1.印刷範囲の設定
特定のデータだけを印刷する。

2.ページの順序や範囲を指定
必要なページだけ印刷する。

3.複数シートを一括で印刷設定
複数のシートで同じページ設定を適用する。

Option Explicit

Sub SetPrintAreaAndPrint()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 印刷範囲を設定
    ws.PageSetup.PrintArea = "$A$1:$D$20"
    
    ' 印刷（プレビュー）
    ws.PrintPreview
End Sub

特定のページ範囲を印刷

Option Explicit

Sub PrintSpecificPages()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' ページ範囲を指定して印刷
    ws.PrintOut From:=1, To:=2 ' 1ページ目から2ページ目まで印刷
End Sub

複数シートのページ設定を一括で適用

Option Explicit

Sub SetPageSettingsForAllSheets()
    Dim ws As Worksheet
    
    For Each ws In ThisWorkbook.Sheets
        With ws.PageSetup
            .Orientation = xlLandscape ' 横向き
            .Zoom = False
            .FitToPagesWide = 1 ' 横1ページに収める
            .FitToPagesTall = 1 ' 縦1ページに収める
        End With
    Next ws
    
    MsgBox "すべてのシートにページ設定を適用しました。"
End Sub

特定のシートを印刷

Option Explicit

Sub PrintSpecificSheet()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet2")
    
    ' 指定シートを印刷
    ws.PrintOut
End Sub

印刷プレビューを表示

Option Explicit

Sub ShowPrintPreview()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 印刷プレビューを表示
    ws.PrintPreview
End Sub

「ページ指定」を活用すると、特定の範囲やシート、ページを効率的に印刷できるようになります。VBAを使うことで、日常の印刷作業が格段に楽になり、設定ミスも減らせます。