Как узнать количество страниц при печати в Excel на VBA?

Формулировка задачи:

Убедительная просьба помоч!!! Как узнать количество страниц при печати в Excel?

Решение задачи: «Как узнать количество страниц при печати в Excel на VBA?»

textual
                            Листинг программы 
                        

                                rEnd = Cells(65000, 1).End(xlUp).Row  ' нижняя граница печати
 
    nCountSheets = 0  ' количество листов для печати
    rBreaks = 0          ' адрес строки, после которой стоит разрыв
 
' перебираю все разрывы (горизонтальные), определяя их положение
' тут главное определить строку последней границы
 
    For Each hp In ActiveSheet.HPageBreaks
        Set rngHPB = hp.Location
        rBreaks = rngHPB.Row - 1
        
        If rBreaks <= rEnd Then nCountSheets = nCountSheets + 1
    
    Next
    
    If rBreaks = 0 Then nCountSheets = 1
    If (ActiveSheet.HPageBreaks.Count <> 0 And rBreaks < rEnd ) Then nCountSheets = nCountSheets + 1
    
Debug.Print nCountSheets
                        