Pages
 

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

Pages
 

will this work?

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

"Dominic Robinson" wrote in message
...
Is there any property of the worksheet or workbook object
that will tell me the number of pages that will be
printed?

Pages
 

Try this

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


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Dominic Robinson" wrote in message ...
Is there any property of the worksheet or workbook object
that will tell me the number of pages that will be
printed?