Sub PrinterSelectLocal()
Dim i As Integer
 
  CommonDialog1.Flags = cdlPDReturnDC
  CommonDialog1.PrinterDefault = False
  CommonDialog1.CancelError = True
 
  On Error GoTo ErrHandler
  CommonDialog1.ShowPrinter
 
 
For i = 0 To Printers.Count - 1
    Debug.Print CommonDialog1.hDC & " " & Printers(i).hDC
    If CommonDialog1.hDC = Printers(i).hDC Then
        Debug.Print "Ausgewählter Drucker: " & Printers(i).DeviceName
        Exit For
    End If
  Next i
 
  Debug.Print "Standard Drucker: " & Printer.DeviceName
 
  Exit Sub
 
ErrHandler:
   Debug.Print "Anwender drückte Abbrechen "
End Sub