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?