Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
556to560
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
556to560
556to560
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Druckerwechsel im Netz

Druckerwechsel im Netz
31.01.2005 10:57:17
Günther
Hallo Forum,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druckerwechsel im Netz
UweD
Hallo
so könnte es gehen.

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
If Environ("UserName") = "Dein Anmeldename" Then 'hier dein Anmeldenamen am Netz
Application.ActivePrinter = "TEC B-472 auf LPT1:"
Else
Application.ActivePrinter = "\\decrh-kdhh8tc\TEC B-472:"
End If
End Sub

Gruß UweD
Danke - es funzt!!___o.T.
Günther
Günther

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige