brauche makro zum drucken

[Sama1991]

Hallo, habe es jetzt schon selber mal versucht aber bekommen es nicht hin.
Wie schaff ich es das wenn ich auf den makro knopf klick den ich vorher festlege das dann die gesamte arbeitsmappe gedruckt wird. bisher druckt der immer nur die ausgewählte tabelle.

Bitte um Hilfe

[Sama1991]

Kann mir da einer noch weiterhelfen?

[Christian Marquardt]

Nein, da keiner weiss um was es geht
VBA und Mappen?? Macroknopf??

[Sama1991]

ich brauche ein macro für meine excel arbeitsmappe die 2 Tabellen enthält. wenn ich das makro ausführe soll er meine komplette arbeitsmappe ausdrucken

[Christian Marquardt]

Ach Excel, nun da würde ich mal die Möglichkeit der Aufzeichnung eines Macros nutzen

[Sama1991]

Habe ich schon probiert..
Klappt auch alles bis auf dass der mir immer nur die Tabelle druckt die wenn man das makro ausführt offen war. Der soll mir aber meine beiden tabellen ausdrucken die in der Arbeitsmappe sind. Beim makroaufzeichnen habe ich extra beim drucken auf gesamte arbeitsmappe geklickt.

[Christian Marquardt]

Dann wirf ein Blick in den aufgezeichneten Code

[Sama1991]

ich versteh nur leider kein vba ^^

    Application.ActivePrinter = "PDFCreator auf Ne00:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "PDFCreator auf Ne00:", Collate:=True

[Sama1991]

Sorry wegen DP aber das is echt wichtig... Kann mir da jemand weiterhelfen?

[Christian Marquardt]

Versuche es mit

Sheets("Tabelle1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PDFCreator auf Ne00:", Collate:=True

Sheets("Tabelle2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PDFCreator auf Ne00:", Collate:=True

Sheets("Tabelle3").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PDFCreator auf Ne00:", Collate:=True

Wahrscheinlich lassen sich die einzelnen Sheetsangaben auch mit einer Schleife über alle vorhandenen ersetzen

[Sama1991]

Hey danke das klappt soweit. Gäbe es noch irgendwie die möglichkeit das der beide Tabellen hintereinanderfügt und dann ausdruckt?.

[Christian Marquardt]

Sicherlich.......aber ich kenne VBA für Excel überhaupt nicht. Das obige war 30 Sek google....

[Sama1991]

Kann er auch mit einem makroklick alle tabellen hintereinanderhängen?