Hi Hans

pagenumber
is possible but very slow


the total number

Sub test()
Dim TotPages As Long
TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")

MsgBox TotPages
End Sub



--
Regards Ron de Bruin
http://www.rondebruin.nl


"hans" wrote in message ...
Has somone a function that can display a pagenumber and/or the total number of pages te print.

Thanks Hans