Vb.Net Yazıcıları Listelemek

Imports System.Drawing.Printing
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For Each yazicilar In PrinterSettings.InstalledPrinters
            ComboBox1.Items.Add(yazicilar)
            ListBox1.Items.Add(yazicilar)
        Next yazicilar
    End Sub
End Class