Total of pages

  • Thread starter Thread starter Ron de Bruin
  • Start date Start date
R

Ron de Bruin

Hi Rodrigo

You can try

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

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Print Code 1
Suppress First Page Header 12
Printing header on all but last page 2
ProtectScan 2
Excel Code to run ActiveWindow.View in normal view, only runs manually. 21
ExecuteExcel4Macro("GET.DOCUMENT(50)") 10
How to assign PRINT option to execute a macro 3
How do I assign "Apple" to a cell reference in this evaluate code? 2

Back
Top