Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
If (PrinterSettings.InstalledPrinters.Count <= 0) Then
MessageBox.Show("没找到打印机")
End If
Dim ps As New PrinterSettings
Dim printName As String
For Each printName In PrinterSettings.InstalledPrinters
ps.PrinterName = printName
Console.WriteLine("默认打印机:{0}; 是否可用:{1}", 1}", ps.IsDefaultPrinter, ps.IsValid)
Next
End Sub