Druckerwechsel im Netz
31.01.2005 10:57:17
Günther
ich muss in einer Mappe zwischen mehreren Tabellen wechseln und gleichzeitig soll sich der auszugebende Drucker ändern. Mit folgendem (aufgezeichnetem) Code, wechsle ich das Tabellenblatt und gleichzeitig den Drucker:
Sub gehe_zu_Tabelle1_mit_Druckerwechsel()
' gehe_zu_Tabelle1_mit_Druckerwechsel Makro
' Makro am 31.01.2005 von OPPOLD aufgezeichnet
Sheets("Tabelle1").Select
Range("D1").Select
Application.ActivePrinter = "TEC B-472 auf LPT1:"
End Sub
Dieser Drucker ist - wie zu sehen - an meinem PC local installiert, jedoch haben andere User im Netzwerk ebenfalls Zugriff. Dort lautet der Pfad:
Application.ActivePrinter = "\\decrh-kdhh8tc\TEC B-472:"
Wie kann ich das Makro so abändern, dass sowohl ich als auch die Kollegen
die Makros benutzen können.
Besten Dank im Voraus
Günther