Mehrere Drucker in Wordanbindung  [GELÖST]

Fehler im Programm, Fehlermeldung, Absturz oder fehlende Funktionen? Hier hinein!

Moderator: Forum Moderatoren

Antworten
PHoevermann@aol.com

Mehrere Drucker in Wordanbindung  [GELÖST]

Beitrag von PHoevermann@aol.com »

Ich schicke meine Briefe meist per Fritzfaxdrucker an KollegInnen weg, nur gelegentlich drucke ich über den Laserdrucker aus und versende per Post. Wie kann ich in die Kopfzeile der Wordanbindung BEIDE Drucker per Symbol zur Auswahl bekommen, ohne dass sich der aktuelle Drucker immer verstellt in den "Zu-letzt-Benutzten"??!!? Wer hilft?
Andreas
Beiträge: 241
Registriert: Dienstag 2. November 2004, 21:45
19
Wohnort: Ruhrgebiet
Hat sich bedankt: 10 times
Bedankt: 2 times

Beitrag von Andreas »

Hallo,
Zunächst brauchst Du ein Makro, welches auf den gewünschten Drucker druckt. Das folgende Makro kannst Du in NORMAL.DOT ablegen. Du musst noch den Druckernamen anpassen (muss dem im Drucken-Dialog genau entsprechen!).


Sub DruckSpezial()
Druckername = "HP LaserJet 4100 PS"
savPrt = ActivePrinter
On Error Resume Next
ActivePrinter = Druckername
rc = Err.Number
sysmsg = Err.Description
On Error Goto 0
Select Case rc
Case 0
ActiveDocument.PrintOut Background:=False
ActivePrinter = savPrt
Case 5216
strT = "Drucker " & Druckername & " ist nicht oder nicht richtig installiert."
MsgBox strT, vbExclamation
Case Else
strT = "Beim Drucken auf " & Druckername & " ist folgender unerwarteter Fehler aufgetreten:"
strT = strT & vbLf & sysmsg
MsgBox strT, vbExclamation
End Select
End Sub



Dann gehst Du auf die Symbolleiste-Anpassen und weist dort dem gewünschten Button über das Register Befehle und die Kategorie Makro den Makronamen zu. Das Makro merkt sich auch den Standarddrucker und setzt diesen auch wieder zurück.

Freundliche Grüße
Andreas
PHoevermann@aol.com

Druckermakro

Beitrag von PHoevermann@aol.com »

Klappt perfekt! Hut ab! Vielen Dank! Ab heute bei mir im täglichen Einsatz...

Peter
Antworten

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 19 Gäste