IADsPrintJob Property: TotalPages

Property Name
TotalPages

Property Type
Long

Description
It gets the total number of pages in the print job.
This property is read-only.

Example

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

See Also

• IADsPrintJob Interface

• IADsPrintJobOperations Interface

• IADsPrintQueueOperations Interface

• Print Job Status Codes

• Printer Status Codes