ファイルの総ページ数の取得方法

はな 2006-09-22 01:48:39 No: 133354

ワードファイル、または、エクセルファイル（すべてのシートの合計）の総ページ数を取得する方法を探しています。
印刷プレビュー時に表示される、○／△の△を取得する関数などありますでしょうか？

関数がないのなら簡単なサンプルなど参考になるものがあればうれしいです。

よろしくお願いいたします。

特攻隊長まるるう 2006-09-22 03:02:48 No: 133355

[Excel VBA]
Sheets.Count 'シート数
Worksheets.Count 'ワークシート数
Charts.Count 'グラフシート数
Worksheets("Sheet1").HPageBreaks.Count '印刷範囲での水平な改ページ数

詳細や使用方法は[Excel VBA]のヘルプでどうぞ。

はな 2006-09-22 22:35:50 No: 133356

特攻隊長まるるうさま
早速のお返事ありがとうございます。

やはり、関数は無いのですね。
印刷時のフッターの指定のときに、”&[総ページ数]”のように簡単に設定できるので、同様の関数もあるのではないかと思っていました。

マクロで
Worksheets("Sheet1").HPageBreaks.Count '印刷範囲での水平な改ページ数
と
Worksheets("Sheet1")..VPageBreaks.Count '印刷範囲での垂直な改ページ数
を取得して、かけて１シートのページ数
１シートのページ数×総シート数

で求めればいいのですね！

ありがとうございました。