Office - Word, Excel und Co. 9.766 Themen, 41.835 Beiträge

Word 2000 : Druckerauswahl per Button in der Toolbar

jdeen / 2 Antworten / Baumansicht 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
jdeen Uli M „dim strSicPrinter as string strSicPrinter ActivePrinter ActivePrinter...“
Optionen

Sag ich doch : Gute Ideen passen auf einen Bierdeckel.

Man muß nur draufkommen.

Herzlichen Dank !!!


jdeen

. . . when the kid next door walking on the moon . . .Wirklich gute Jdeen passen auf einen Bierdeckel
bei Antwort benachrichtigen