'Variablen
   Public m_akt_altdrucker As String   'Durcker-Name vor dem Prg.-Aufruf
 
 
'Durcker-Name merken, um diesen später wieder einzustellen
   m_akt_altdrucker = Application.ActivePrinter
   On Error GoTo fehlermeldung_Drucker
   'Dein Programm zum Drucken    . . . . . . .
 
'Drucker zurückstellen auf den vorher gemerkten Durcker-Namen
   If Len(m_akt_altdrucker) > 0 Then
      Application.ActivePrinter = m_akt_altdrucker
   End If
 
 
 
'Fehlerausgabe
fehlermeldung_Drucker:
   On Error GoTo 0
   'Dein Programm bei Fehler zum Drucken    . . . . . . .
 
'Drucker zurückstellen bei Fehler
   If Len(m_akt_altdrucker) > 0 Then
       Application.ActivePrinter = m_akt_altdrucker
   End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Gruß aus Mittelfranken
Heinz