Makro zum drucken mehrerer Blätter geht nicht
26.10.2005 11:01:27
Gabi
habe gestern schon hilfe bekommen aber ich stecke jetzt fest.
Wenn ich nun die Schaltfläche zum drucken drücke kommt folgende Fehlermeldung:
Fehler beim Komilieren
Falsche Anzahl an Argumenten....
Mein Code sieht zur Zeit so aus:
Sub DruckenVieleTabellen()
Sheets(Array("Kp Kdo 1", " Kdo Grp Gesamt 1", "Kdo Grp 1", "Kdo Trp 1", "Fk 8 Trp 1", "Vers Grp Gesamt 1", "Vers Grp 1", "Vers Trp 1", "San Trp 1", "Wtg Trp 1", "Versanteil 1")).PrintOut Copies:=1
Sheets("Zg Gesamt 1", "Zg Kdo 1", "Zg Trp 1").PrintOut Copies:=2
Sheets("Grp 1").PrintOut Copies:=3
End Sub
Könnte mir da jemand weiter helfen und mir den Code so veränder das es funktioniert?
Wichtig ist nur das eben die Zg Blätter 2 Mal gedruckt und das Grp Blatt 3 Mal gedruckt wird, alle anderen nur einmal.
Ich danke allen, LG Gabi