Function printerlist() As String
Dim printers As System.Drawing.Printing.PrinterSettings.StringCollection
Dim str As String = String.Empty
printers = System.Drawing.Printing.PrinterSettings.InstalledPrinters()
For x = 0 To printers.Count - 1
str = str & printers.Item(x) & vbCrLf
Next
' MessageBox.Show(str)
Return str
End Function