ExcelVBA ページ数取得でExcelシートデータが印刷時に何ページか知る

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

1.印刷前の確認
印刷時のページ数を事前に把握し、調整する。

2.動的処理
ページ数に応じてレポートを分割・保存する。

3.エラーチェック
ページ数が意図した範囲内かどうかを確認する。

Option Explicit

Sub GetPageCount()
    Dim ws As Worksheet
    Dim pageCount As Integer
    
    ' 対象シートを指定
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' ページ数を取得
    pageCount = ws.PageSetup.Pages.Count
    
    MsgBox "Sheet1のページ数は " & pageCount & " ページです。"
End Sub

印刷設定を変更してページ数を再計算

Option Explicit

Sub GetPageCountAfterSetting()
    Dim ws As Worksheet
    Dim pageCount As Integer
    
    ' 対象シートを指定
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 印刷設定を変更
    With ws.PageSetup
        .Orientation = xlLandscape ' 横向き
        .Zoom = False
        .FitToPagesWide = 1 ' 横1ページに収める
        .FitToPagesTall = False ' 縦方向は制限しない
    End With
    
    ' ページ数を取得
    pageCount = ws.PageSetup.Pages.Count
    
    MsgBox "設定変更後、Sheet1のページ数は " & pageCount & " ページです。"
End Sub

すべてのシートのページ数を取得

Option Explicit

Sub GetPageCountForAllSheets()
    Dim ws As Worksheet
    Dim pageCount As Integer
    Dim result As String
    
    result = "各シートのページ数:" & vbCrLf
    For Each ws In ThisWorkbook.Sheets
        pageCount = ws.PageSetup.Pages.Count
        result = result & ws.Name & ": " & pageCount & " ページ" & vbCrLf
    Next ws
    
    MsgBox result
End Sub

ExcelVBAの「ページ数取得」を活用すると、印刷結果の事前確認や動的な処理が可能になります。`シート.PageSetup.Pages.Count を使用することで、ページ数を簡単に取得できますが、正確な印刷設定を整えることが重要です。