Dim prnName As String
 
<font color=green>' aktuellen Standarddrucker "merken"</font>
prnName = Printer.DeviceName
 
<font color=green>' Jetzt Druck-Dialog anzeigen</font>
On Error Resume Next
With CommonDialog1
  .CancelError = True
  .PrinterDefault = True
  .ShowPrinter
  If Err = 0 Then
    <font color=green>' Ausdruck beginnen</font>
    Printer.Print
    ...
    <font color=green>' Ausdruck beenden</font>
    Printer.EndDoc
 
    <font color=green>' "alten" Standard-Drucker wiederherstellen</font>
    SetPrinter prnName
  End If
End With

<font color=green>' Festlegen des Druckers für den Ausdruck
' Erwartet wird als Parameter die im System verwendete
' Bezeichnung des Druckers
'
' Rückgabewert: True  = OK
'               False = Drucker nicht gefunden</font>
Private Function SetPrinter(ByVal prnName As String) _
  As Boolean
 
  Dim Result As Boolean
  Dim x As Integer
 
  Result = False
  If Printers.Count > 0 Then
    For x = 0 To Printers.Count - 1
      If Printers(x).DeviceName = prnName Then
        Set Printer = Printers(x)
        Result = True
        Exit For
      End If
    Next x
  End If
  SetPrinter = Result
End Function