印刷総ページ数を取得する【Pages.Countプロパティ】【ExcelVBA】

印刷前に印刷する総ページ数を取得したいケースがあります。
Pages.Countプロパティで必要なシート数を取得可能です。

印刷総ページ数を取得する【Pages.Count】サンプルコード

Public Sub sample()

    '■印刷総ページ数を取得する(現在のシート)
    Debug.Print ActiveSheet.PageSetup.Pages.Count
    
    '■印刷総ページ数を取得する(現在のブック内の全てのシート)
    Dim ws As Worksheet
    Dim num As Long: num = 0
    '■Forでループして全てのシートを対象に調査
    For Each ws In ActiveWorkbook.Worksheets
        num = num + ws.PageSetup.Pages.Count
    Next
    
    ■総ページ数を表示
    Debug.Print num
    
End Sub

注意点

• PageSetupはWorkbookオブジェクトが指定できないため、Forでループさせる必要があります。
• 非表示のシートは、総ページ数に足されません。

関連記事

• 印刷を行う【PrintOut メソッド】
• 印刷前に処理実行する/印刷させない【Workbook_BeforePrint】
• 上下左右の印刷余白をなしにする処理をパーツ化する
• Edge/Chromeで印刷設定を行う【Selenium】
• Edge/ChromeでWebページを印刷する【shadowRoot】【Selenium】