how insert printed pages counter

K

Kintamasis

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
 
Top