ich habe folgendes Problem: Durch den Austauch eines PC's im Netzwerk fuktioniert ein VBA Code nicht mehr, obwohl Pfade usw alles ok ist, manuell kann ich auch noch drucken.
Folgender Code:
Private Sub CommandButton1_Click()
Sheets("Etik_Waren").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$B$9"
Application.ActivePrinter = "NEC Pinwriter P20 auf \\16W1701PR034\NECPinwrP20"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"NEC Pinwriter P20 auf \\16W1701PR034\NECPinwrP20"
Application.ActivePrinter = "Kyocera FS-600 auf LPT1:"
Sheets("Wareneingangs-Laufzettel").Select
Range("i6").Select
End Sub
Bei der 4. Zeile bleibt er hängen mit Laufzeitfehler 1004.
Kann mir jemand eine Erklärung oder Hilfe geben?.
mfg Rainer