Office - Word, Excel und Co. 9.706 Themen, 40.868 Beiträge

Word 2000 : Druckerauswahl per Button in der Toolbar

jdeen / 2 Antworten / Flachansicht Nickles

Hallo zusammen !

Ich habe mir per Makro-Aufzeichnung zwei Buttons erstellt, mit denen ich schnell zwischen meinen beiden Druckern hin und her schalten kann.
Mein Problem ist nun, daß diese Makro\'s nicht nur den aktuellen Drucker für Word ändern, sondern auch den Standard-Drucker verändert, so daß andere Programme, die den Standarddrucker (DOS) verwenden, die Druckaufträge regelmäßig an den falschen Drucker senden. (Murphy\'s Gesetz). Wer kann mir da weiter helfen ?

Hier das Makro :

ActivePrinter = "\\\\Xeroxdc490st\\DC490"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0


Gruß jdeen

. . . when the kid next door walking on the moon . . .Wirklich gute Jdeen passen auf einen Bierdeckel
bei Antwort benachrichtigen
Uli M jdeen „Word 2000 : Druckerauswahl per Button in der Toolbar“
Optionen

dim strSicPrinter as string
strSicPrinter = ActivePrinter
ActivePrinter = "\\\\Xeroxdc490st\\DC490"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
ActivePrinter = strSicPrinter

bei Antwort benachrichtigen