Netzwerkdrucker
Benedikt
Mit nachfolgendem Code drucke ich den festgelegten Bereich ohne Druckdialog direkt auf den Netzdrucker. Funktioniert auch, aber bei meinen Büronachbarn ist das Ne05 im Code leider ein NE06 oder NE07. Also zwangsläufig eine Fehlermeldung. Wie bekomme ich das NE für alle gültig?
Private Sub CommandButton1_Click()
Worksheets("Kalender").PageSetup.PrintArea = "KW_" & AktuellKW
Unload Me
Dim AltDrucker As String
AltDrucker = ActivePrinter 'speichern des vorher eingestellten Druckers
Application.ActivePrinter = "\\WL02\Canon iR C2380i PCL6 auf Ne05:"
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""\\WL02\Canon iR C2380i PCL6 auf Ne05:"",,TRUE,,FALSE) _
_
Application.ActivePrinter = AltDrucker 'Drucker wiederherstellen:
End Sub
Vielen Dank für eure Hilfe
Grüsse Benedikt