Hallo zusammen,
ich habe ein Rechnungstool welches zwei Seiten auf unterschiedlichen Drucken ausgeben soll. Das Tool soll von verschiedenen Arbeitsplätzen aus genutzt werden. An meinen Rechner funktioniert alles einwandfrei allerdings bekomm ich ein debug Fehler wenn ich das auf einem anderen nutzen möchte da dort der Drucker zwar genauso heißt aber z.B. nicht auf Ne02 angeschlossen ist.
Sub Drucken()
'
' Drucken Makro
'
'
Range("B1:I50").Select
Application.ActivePrinter = "M601 Fach 3 auf Ne02:"
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,1,""M601 Fach 3 auf Ne02:"",,TRUE,,FALSE)"
Sheets("Arbeitsbericht").Select
ActiveWindow.SmallScroll Down:=-21
Range("B1:I50").Select
Application.ActivePrinter = "M601 Fach 2 auf Ne03:"
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,2,""M601 Fach 2 auf Ne03:"",,TRUE,,FALSE)"
End Sub
Kann man das nicht anders machen? Ich kann kein VBA und nutze immer die Aufnahme funktion, bisher hat das auch immer gereicht.
Danke vorab für eure Hilfe
Gruß
|