Hi Rodrigo

You can try

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


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



"Rodrigo Ferreira" wrote in message ...
How can I get total of pages (before print) using macro?

--

Rodrigo Ferreira