default printing

Try this one may be its help for you

 Dim printers As New Printing.PrintDocument()
        Dim printername = printers.PrinterSettings.PrinterName
        For Each printername In printers.PrinterSettings.InstalledPrinters
            cboPrinter.Items.Add(printername)
            cboPrinter.SelectedItem = pdTest.DefaultPageSettings.PrinterSettings.PrinterName
        Next 

Thanks,

Bharath peggem