IADsPrintJobOperations Property: PagesPrinted

Property Name
PagesPrinted

Property Type
Long

Description
Gets the number of pages already printed. 
This property is read-only.

Example

Dim PrintQueueOperations As IADsPrintQueueOperations
Dim PrintJob As IADsPrintJob
Dim PrintJobOperations As IADsPrintJobOperations
'Get the IADsPrintQueueOperations interface. In the path HP DeskJet '500C is the print queue.
Set PrintQueueOperations = GetObject ("NTDS://MSFT/MOON/HP DeskJet 500C")
'Enumerate individual print jobs and get the
'PagesPrinted property
For each PrintJob In PrintQueueOperations.PrintJobs
 Set PrintJobOperations = PrintJob
 Debug.Print PrintJobOperations.PagesPrinted
Next PrintJob

 

See Also