ExcelBanter - Total of pages

ExcelBanter (https://www.excelbanter.com/)

- Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)

- - Total of pages (https://www.excelbanter.com/excel-worksheet-functions/118067-total-pages.html)

Ron de Bruin

Total of pages

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

Rodrigo Ferreira

Total of pages

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

--

Rodrigo Ferreira

All times are GMT +1. The time now is 11:39 AM.