Pages

[Dominic Robinson]

Is there any property of the worksheet or workbook object
that will tell me the number of pages that will be
printed?

 

[Don Guillett]

will this work?

Sub countpb()
MsgBox ActiveSheet.HPageBreaks.Count
End Sub

 

[Ron de Bruin]

Try this

Sub test()
Totpage = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
MsgBox Totpage
End Sub