Dim objDefaultPrinter As New System.Drawing.Printing.PrinterSettings
Dim strOldDefaultPrinter As String = "Microsoft XPS Document Writer"
If (objDefaultPrinter IsNot Nothing) AndAlso (objDefaultPrinter.IsDefaultPrinter) Then
strOldDefaultPrinter = objDefaultPrinter.PrinterName
'Change Default Printer
objDefaultPrinter.PrinterName = "SATO CG208"
End If
prt.PrintToPrinter(1, False, 1, 1)
'Reset Default Printer
objDefaultPrinter.PrinterName = strOldDefaultPrinter