Netzwerkdrucker
13.11.2003 16:02:55
Werner
habe da ein Problem:
Sheets("Ausdruck").Select
ActiveSheet.PageSetup.PrintArea = "$B$1:$H$38"
Application.ActivePrinter = "\\SMHMP003\PMHMD16748 LANIER 5622 PCL 6 auf Ne08:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Application.ActivePrinter = "\\SMABPS03\P1551 auf Ne02:"
Dieses Makro ruft einen Drucker im Netzwerk auf,druckt 1 Kopie und macht meinen Drucker wieder zum Standarddrucker.
Nun kann es aber vorkommen dass der angerufene Netzwerkdrucker "auf Ne07:" oder auch "auf Ne09:" anzutreffen ist.Wie man erkennt ist er aber starr "auf Ne08:" eingestellt.Wie kann ich erreichen das Excel das momentan gültige "Ne :" erkennt und den Druckbefehl dahin abgibt?
bedanke mich schon mal vorab und hoffe dass jemand behilflich sein kann.
Gruss
Werner