印刷の総ページ数を取得する
練習シートの現在の印刷設定で総ページ数を表示します。
実行前に確認
- プリンタードライバーや印刷範囲によって結果が変わります。ブック全体の合計ではなく、この1枚のページ数です。
1サンプルコード
Sub Sample3075()
ThisWorkbook.Activate
ThisWorkbook.Worksheets("練習").Activate
MsgBox "印刷ページ数: " & ThisWorkbook.Worksheets("練習").PageSetup.Pages.Count
End Sub図で見る操作の流れ
イメージ図コードの動きを表した概念図です。実際のExcel画面ではありません。
手動：印刷設定を整える
「練習」のデータ、印刷範囲、プリンターを設定する
マクロ：「練習」を表示
ブックと対象シートをアクティブにする
結果：ページ数を表示
PageSetup.Pages.Countで現在の印刷ページ数を読む
印刷はしません。ブック全体ではなく「練習」1枚のページ数で、プリンターや設定により変わります。
コードの処理を説明する模式図です。実際の画面や実行結果を撮影したものではありません。
使い方・実行手順を確認する3つの手順で、コードの使い方を確認できます
- 1
練習用のブックをExcelマクロ有効ブック（.xlsm）で保存します。練習シートにデータを入れ、使用するプリンターと印刷範囲を設定します。
- 2
Alt＋F11でVBEを開き、［挿入］→［標準モジュール］にコードを貼り付けます。
- 3
Sample3075内にカーソルを置いてF5で実行します。練習シートの現在の印刷設定で総ページ数を表示します。