:: چک کردن این که پرینتر نصب شده است یا خیر

If PrinterSettings.InstalledPrinters.Count <= 0 Then
MessageBox.Show("Printer Not found...")
Return
End If
For Each pName As String In PrinterSettings.InstalledPrinters
ListBox1.Items.Add(pName)
Next



البته قبلش این کارو بکن ::

Imports System.Drawing.Printing