title image


Smiley Per Makro Druck auf 2 Druckern gleichzeitig
Hallo,



mit folgendem Makro erreiche ich, dass eine Vorlage auf einem bestimmten Drucker ausgedruckt wird. Nach erfolgtem Druck stellt sich wieder der vorhergehende Drucker ein.



Nun möchte ich aber, dass die Vorlage gleichzeitig auf 2 verschiedenen Druckern ausgedruckt wird und anschließend automatisch der vorherige Drucker eingestellt wird.

Ist das möglich?

Ich bin für jeden Tipp dankbar.

Grüße

Lara



Hier das Makro:

Option Explicit

Dim strAktuellerDrucker As String

Const strZieldrucker As String = "LJ4100 Textadmin"

On Error GoTo Err_Druck_Zieldrucker

strAktuellerDrucker = ActivePrinter

ActivePrinter = strZieldrucker

Application.PrintOut

End_Druck_Zieldrucker:

ActivePrinter = strAktuellerDrucker

Exit Sub



'Fehlerbehandlungsroutine

Err_Druck_Zieldrucker:

Select Case Err

Case 5216

MsgBox "Der gewählte Drucker wurde nicht gefunden. " & _

"Überprüfen Sie Ihre Einstellungen!" & vbCr & _

"Der Druckauftrag wird abgebrochen", _

vbCritical, _

"Druckerfehler"

Case Else

MsgBox "Fehlernummer: " & Err.Number & vbCr & _

"Fehlerbeschreibung: " & Err.Description, _

vbCritical, _

"Fehler: " & Err.Number

End Select

Err.Clear

GoTo End_Druck_Zieldrucker

End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: