Listar las impresoras

Ejemplo que obtiene todas las impresoras instaladas en el equipo y también averiguar la impresora predeterminada en vb.net

Controles:
Añadir un control listbox1
Código fuente

Imports System
Imports System.Drawing.Printing

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load

Dim pd As New PrintDocument
Dim Impresoras As String

' Default printer
Dim s_Default_Printer As String = pd.PrinterSettings.PrinterName

' recorre las impresoras instaladas
For Each Impresoras In PrinterSettings.InstalledPrinters
ListBox1.Items.Add(Impresoras.ToString)
Next
' selecciona la impresora predeterminada
ListBox1.Text = s_Default_Printer
End Sub
End Class