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?