In response to a newsgroup query here is the code
needed to view the printer queues on your system. Once again this is achieved
using Windows Management Instrumentation or WMI. Note this code will display all
printer queues if there are documents waiting to be printed. To test this open
up a printer queue and pause the printer then use notepad or word etc and print
to the paused printer.
This code has been written on the release version of .NET.
'WMI4.vb
'Demonstrates how to view printjobs for any given printer
Imports
System
Imports
System.Management
Namespace
WMI4
Class
Class1
'Entry point which
delegates to C-style main Private Function
Public
Overloads
Shared Sub Main()
Main(System.Environment.GetCommandLineArgs())
End
Sub
Overloads Shared
Sub Main(args()
As String)
Console.WriteLine("Retrieving printer queue information using WMI")
Console.WriteLine("===================================")
'Query printer queue
Dim
oq As New
System.Management.ObjectQuery("SELECT * FROM Win32_PrintJob")
'
Dim
query1 As
New ManagementObjectSearcher(oq)
Dim
queryCollection1 As
ManagementObjectCollection = query1.Get()
Dim
mo As ManagementObject
For
Each mo In
queryCollection1
Console.WriteLine(("Printer Driver : " + mo("DriverName").ToString()))
Console.WriteLine(("Document Name : " + mo("Document").ToString()))Console.WriteLine(("Document
Owner : " + mo("Owner").ToString()))
Console.WriteLine("===========================")
Next
mo
End
Sub 'Main
End
Class
'Class1
End
Namespace
'WMI4