Total of pages

[Ron de Bruin]

Hi Rodrigo

You can try

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

 

[Rodrigo Ferreira]

How can I get total of pages (before print) using macro?