Hallo
Auf der
Suche nach einem Makro das zwischen zwei Druckern umschaltet, bin ich auf folgendes Makro gestoßen.
Public Sub SpecialPrinter()
Dim Drucker1 As String, Drucker2 As String
Drucker2 = ActivePrinter = "Epson Stylus Sx 430(Netzwerk)"
'Aktuellen Drucker auslesen
Drucker1 = Application.ActivePrinter
'Sonderdrucker einstellen
With
Dialogs(wdDialogFilePrintSetup)
.Printer = Drucker2
.DoNotSetAsSysDefault = True
.Execute
End With
'Dokument drucken und Drucker wieder zurückstellen
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
Application.ActivePrinter = Drucker1
End Sub
Leider bleibt es an der markierten Stelle mit der Fehlermeldung
Fehler beim Kompilieren:
Sub oder Function nicht definiert
stehen.
Für Hilfe bei diesem oder Vorschläge für ein neues Makro, besten Dank.
Möglichst ohne die Nummer des Druckers "auf Ne02:" da die Anzahl der Drucker in unseren Firmennetzwerk häufig wechselt:
Mit freundlichen Grüßen
Hans