Printer Listing (

With reference to this site.

You need to add reference for 'System.Management' in order to use the namespace 'System.Management'.

Imports System.Management

Public Class Form1

   Private moc As System.Management.ManagementObjectCollection

   Private Sub LoadPrinters()

       Dim oquery As System.Management.ObjectQuery = _
        New System.Management.ObjectQuery("SELECT * FROM Win32_Printer")

        Dim mosearcher As System.Management.ManagementObjectSearcher = _
        New System.Management.ManagementObjectSearcher(oquery)

        moc = mosearcher.Get()

        For Each tPrinter As ManagementObject In moc


        Next tPrinter

    End Sub

End Class

Download the sample code in VB.NET (Visual Studio 2008 SP1)