Mehrere Drucker in Wordanbindung [GELÖST]
Moderator: Forum Moderatoren
Mehrere Drucker in Wordanbindung [GELÖST]
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?
-
- Beiträge: 241
- Registriert: Dienstag 2. November 2004, 21:45
- 19
- Wohnort: Ruhrgebiet
- Hat sich bedankt: 10 times
- Bedankt: 2 times
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
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
Wer ist online?
Mitglieder in diesem Forum: 0 Mitglieder und 24 Gäste