Imports System.Drawing.Printing

Public Class frmPrinterselect
    Private Sub frmPrinterselect_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For Each printer As String In PrinterSettings.InstalledPrinters
            lbprinter.Items.Add(printer)
        Next printer
        Dim oPS As New System.Drawing.Printing.PrinterSettings
        lblDefaultprinter.Text = oPS.PrinterName
    End Sub


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim a As New Printing.PageSettings()
        a.PrinterSettings.PrinterName = Me.lbprinter.SelectedItem
        Shell(String.Format("rundll32 printui.dll,PrintUIEntry /y /n ""{0}""", Me.lbprinter.SelectedItem))
    End Sub


End Class