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
Print Job Status Codes
Printer Status Codes