は、ページの最後にコメントを持つExcelシートのページ数を取得する方法

Excelのオブジェクトモデルは、私たちにシート状> PageSetup-> Pages->は、ページの最後にコメントを持つExcelシートのページ数を取得する方法

カウントAPIを使用して用紙に印刷するページ数を示します。しかし、この数は」doesnのtシートの最後に印刷されるコメントのために追加されたページ数（シートのページセットで作成できる設定）

誰かが解決策を見つけることができますか？

おかげヒマンシュ

出典

2011-08-09 hjindal

どのバージョン見つかっ？ 2003年に 'PageSetup'に' Pages'プロパティがあるとは思えません... –

@Jean：Excel 2007とExcel 2010を使用しています。どちらもPagesetupのPagesプロパティを持っています。 2003年にそこにいなければ、そこにnumページを見つける方法はありますか？ – hjindal

改ページは、Excelの画面に正しく表示されていますか？

もしそうなら、あなたはこのコードを試すことができます。

Sub HowManyPagesBreaks() 
    Dim iHpBreaks As Integer, iVBreaks As Integer 
    Dim iTotPages As Integer 

    iHpBreaks = ActiveSheet.HPageBreaks.Count + 1 
    iVBreaks = ActiveSheet.VPageBreaks.Count + 1 

    iTotPages = iHpBreaks * iVBreaks 

    MsgBox "This sheet will require " & iTotPages & _ 
    " page(s) to print", vbInformation, "OzGrid.com" 
End Sub

は、使用しているExcelのhere

出典

2011-08-09 07:50:13 JMax

コメントを除いたシートコンテンツごとにページ区切りを作成しないでください。これはうまくいきません... – hjindal

このメソッドは、コメントのないシートの場合には正しい数のページを提供しません.Excelは常に最後の空白ページの数を最小限にしようとします。たとえば、Hpbreaksの数= 2、vPbreaks = 2の場合もあります。合計ページ数は5です。これはExcelの非常に基本的な概念です。 – hjindal

OK、私は回避策を見ることができません、ごめんなさい – JMax

は、ページの最後にコメントを持つExcelシートのページ数を取得する方法

答えて

関連する問題