how insert printed pages counter
 

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

how insert printed pages counter
 

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


On Sun, 14 Oct 2007 09:03:01 -0700, Kintamasis
wrote:

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