Ich möchte gerne Makros erstellen, die einen bestimmten Druckbereich auf einem Etikettendrucker ausdrucken und anschließend den Standard-Drucker wieder herstellen.
Der Aufbau ist folgender:
Folgendes einfache Makro druckt nun bei PC1 auf Drucker1:
Sub PrintTest()
Dim xlOldPrinter As String
xlOldPrinter = Application.ActivePrinter
Worksheets("Tabelle 1").PrintOut copies:=1, ActivePrinter:="Drucker2"
Application.ActivePrinter = xlOldPrinter
End Sub
Für PC1 konnte ich nun das Makro für Drucker2 anpassen:
Sub PrintTestTTP345()
Dim xlOldPrinter As String
Worksheets("Tabelle 8").PrintOut copies:=1, ActivePrinter:="\\srv1\Drucker1 auf Ne06:"
Application.ActivePrinter = xlOldPrinter
End Sub
Soweit sogut. Mein Problem ist nun folgendes:
das "\\srv1\Drucker1 auf Ne06:" ist bei PC2 z.B. Ne07:
Wie könnte ich das abfragen? Bzw. gibt es eine Lösung ohne das "auf NeXX:"?
Oder gibt es eine Art on Error Resume und dann zähle ich alle verschiedenen Varianten auf?
Bei PC2 und PC3 heißt der Drucker2 natürlich nicht nur "Drucker2" sonder \\PC1\Drucker2 auf NeXX:"...
Ich möchte ungern für alle PCs eigene Makros und Buttons erzeugen. Da es eine Netzwerkdatei ist in der alle arbeiten, fallen auch individuell angepasste Dateien raus.
Vielen Dank im Voraus!
Der Aufbau ist folgender:
- Es gibt einen Drucker(1), welcher lokal auf PC1 angeschlossen ist. Über die Windows-Druckerfreigabe ist dieser für PC2 und PC3 freigegeben.
- Es gibt einen Drucker(2), der im Netzwerk hängt und über Server1 freigegeben ist.
Folgendes einfache Makro druckt nun bei PC1 auf Drucker1:
Sub PrintTest()
Dim xlOldPrinter As String
xlOldPrinter = Application.ActivePrinter
Worksheets("Tabelle 1").PrintOut copies:=1, ActivePrinter:="Drucker2"
Application.ActivePrinter = xlOldPrinter
End Sub
Für PC1 konnte ich nun das Makro für Drucker2 anpassen:
Sub PrintTestTTP345()
Dim xlOldPrinter As String
Worksheets("Tabelle 8").PrintOut copies:=1, ActivePrinter:="\\srv1\Drucker1 auf Ne06:"
Application.ActivePrinter = xlOldPrinter
End Sub
Soweit sogut. Mein Problem ist nun folgendes:
das "\\srv1\Drucker1 auf Ne06:" ist bei PC2 z.B. Ne07:
Wie könnte ich das abfragen? Bzw. gibt es eine Lösung ohne das "auf NeXX:"?
Oder gibt es eine Art on Error Resume und dann zähle ich alle verschiedenen Varianten auf?
Bei PC2 und PC3 heißt der Drucker2 natürlich nicht nur "Drucker2" sonder \\PC1\Drucker2 auf NeXX:"...
Ich möchte ungern für alle PCs eigene Makros und Buttons erzeugen. Da es eine Netzwerkdatei ist in der alle arbeiten, fallen auch individuell angepasste Dateien raus.
Vielen Dank im Voraus!