取得安裝於電腦上的所有印表機名稱與預設印表機名稱

參考來源
--
Imports System.Drawing.Printing

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim printDoc As New PrintDocument()
Dim sDefaultPrinter As String = printDoc.PrinterSettings.PrinterName '取得預設的印表機名稱

'取得安裝於電腦上的所有印表機名稱，加入 ListBox (Name : lbInstalledPrinters) 中
For Each strPrinter As String In PrinterSettings.InstalledPrinters
Me.lbInstalledPrinters.Items.Add(strPrinter)
Next

'ListBox (Name : lbInstalledPrinters) 選擇在預設印表機
Me.lbInstalledPrinters.SelectedIndex = Me.lbInstalledPrinters.FindString(sDefaultPrinter)

End Sub
End Class