how insert printed pages counter

G

Guest

Hi, how insert in the sheet a COUNTER of printed pages? After page (pages)
printed number increases?
 
G

Gord Dibben

Not sure what you mean from your description.

Nmber of pages in one print job?

Sub Num_Pages()
Dim TotalPages As Long
TotalPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")

With ActiveSheet
.Range("A1").Value = TotalPages & " Pages"

ActiveSheet.PrintOut
End With

End Sub


Gord Dibben MS Excel MVP
 

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

Report duplicates 0
counting the number of printed spreadsheets 1
Worksheet 2
Returning page-count to a cell 2
Date Change 4
Printing cells continuously 4
"Disclaimer" 2
Fixing Page Breaks 3

Top