PrintJobs()As IADsCollection;
Description
This method returns the collection of print jobs currently in the
queue.
Example
Dim PrintQueueOperations As
IADsPrintQueueOperations
Dim PrintJob As IADsPrintJob
Dim PrintJobCollection As IADsCollection
'Get the interface. In the path HP DeskJet 500C is the print
queue.
Set PrintQueueOperations = GetObject ("NTDS://MSFT/MOON/HP DeskJet
500C")
'Get Print Jobs
Set PrintJobCollection = PrintQueueOperations.PrintJobs
For each PrintJob In PrintJobCollection
Debug.Print PrintJob.Description
Next PrintJob
See Also