Public Shared Function DefaultPrinterName() As String Dim Doc As New System.Drawing.Printing.PrintDocument Return Doc.PrinterSettings.PrinterNameEnd Function