ich habe ein Dokument mit einer Befehlsschaltfläche versehen und folgenden Code zugewiesen.
Private Sub CommandButton1_Click()
' BestellAbschluss Makro
' Makro am 28.03.2006 von ThomasRitter aufgezeichnet
Selection.AutoFilter Field:=5, Criteria1:="<>"
Application.ActivePrinter = "\\1-server\Kyocera Mita KM-2550 KX auf Ne03:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\1-server\Kyocera Mita KM-2550 KX auf Ne03:", Collate:=True
End Sub
Bei mir klappt das auch. Nur bei einigen Kollegen kommt Laufzeitfehler 1004. Beim Debuggen markiert er die Zeile
Application.ActivePrinter = "\\1-server\Kyocera Mita KM-2550 KX auf Ne03:"
gelb. Hier muss also der Fehler liegen?
Gibt es einen anderen Befehl fürs drucken im Netzwerk? Eventuell müssen Benutzerrechte umgangen werden?!
Hoffe das mir hierbei geholfen werden kann.
MfG aus Berlin
Thomas R.