PrintServer Class (System.Printing)

		' Create a PrintServer
		' "theServer" must be a print server to which the user has full print access.
		Dim myPrintServer As New PrintServer("\\theServer")

		' List the print server's queues
		Dim myPrintQueues As PrintQueueCollection = myPrintServer.GetPrintQueues()
		Dim printQueueNames As String = "My Print Queues:" & vbLf & vbLf
		For Each pq As PrintQueue In myPrintQueues
			printQueueNames &= vbTab & pq.Name & vbLf
		Next pq
		Console.WriteLine(printQueueNames)
		Console.WriteLine(vbLf & "Press Return to continue.")
		Console.ReadLine()

// Create a PrintServer
// "theServer" must be a print server to which the user has full print access.
PrintServer myPrintServer = new PrintServer(@"\\theServer");

// List the print server's queues
PrintQueueCollection myPrintQueues = myPrintServer.GetPrintQueues();
String printQueueNames = "My Print Queues:\n\n";
foreach (PrintQueue pq in myPrintQueues)
{
    printQueueNames += "\t" + pq.Name + "\n";
}
Console.WriteLine(printQueueNames);
Console.WriteLine("\nPress Return to continue.");
Console.ReadLine();