Private Declare Function OpenPrinter Lib "winspool.drv" _
  Alias "OpenPrinterA" ( _
  ByVal pPrinterName As String, _
  phPrinter As Long, _
  pDefault As Any) As Long
 
Private Declare Function ClosePrinter Lib "winspool.drv" ( _
  ByVal hPrinter As Long) As Long
 
Private Type PRINTER_DEFAULTS
  pDatatype As String
  pDevMode As Long
  DesiredAccess As Long
End Type
 
Private Const STANDARD_RIGHTS_REQUIRED = &HF0000
Private Const PRINTER_ATTRIBUTE_DEFAULT = &H4
Private Const PRINTER_ACCESS_ADMINISTER = &H4
Private Const PRINTER_ACCESS_USE = &H8
Private Const PRINTER_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or _
  PRINTER_ACCESS_ADMINISTER Or PRINTER_ACCESS_USE)

Public Function PrinterAvail(ByVal prnName As String) As Boolean
  Dim Result As Long
  Dim hPrinter As Variant
  Dim udtPrinter As PRINTER_DEFAULTS
 
  udtPrinter.DesiredAccess = PRINTER_ALL_ACCESS
 
  Result = OpenPrinter(prnName, hPrinter, udtPrinter)
  If hPrinter <> 0 Then
    PrinterAvail = True
  End If
  Result = ClosePrinter(hPrinter)
End Function

Dim oPrinter As Printer
 
Combo1.Clear
For Each oPrinter In Printers
  If PrinterAvail(oPrinter.DeviceName) Then
    Combo1.AddItem oPrinter.DeviceName
  Else
    ' Fehler oder Drucker nicht vorhanden
  End If
Next

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de