Как получить Количество страниц листа Excel с комментариями в конце страницы

Question

Объектная модель Excel дает нам количество страниц на листе, используя api Sheet-> PageSetup-> Pages-> Count

Но это число не включает количество страниц, добавленных из-за комментариев, которыенапечатано в конце листа (настройка, которую можно выполнить в настройках страницы листа)

Может кто-нибудь найти решение для этого.

Спасибо, Химаншу

Answer 1

правильно ли отображаются разрывы страниц на дисплее 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

найдено здесь