pagenumber etc.

[hans]

Has somone a function that can display a pagenumber and/or the total number
of pages te print.

Thanks Hans

 

[Ron de Bruin]

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