Excel bestimmte Tabellenblätter mittels Schaltfläche (VBA) drucken/ pdf drucken

[Nordlicht85]

Hallo zusammen,

ich habe insgesamt 4 Tabellenblätter.

Ich möchte insgesamt 8 Makros erstellen:

Ich benötige für jedes Tabellenblatt einen Druck Makro, der einen festgelegten Zellenbereich innerhalb des Tabellenblattes druckt.

Zusätzlich soll dieser Zellenbereich per Makro nicht nur ausgedruckt werden, sondern per weiteren Makro soll die Option bestehen, die Datei als PDF abzuspeichen.

Tabelle 1: Zellenbereich A1:H216
Tabelle 2: Zellenbereich A1:I120
Tabelle 3: Zellenbereich A1:I140
Tabelle 2: Zellenbereich A1:I120

Wichtig ist, dass die Makros einzeln ausführbar sind, es ist nicht gewollt, mit einem Makro alle 4 Tabellenblätter auszudrucken.

Leider komme ich nicht weiter.

Ich hoffe mir kann einer helfen.

Vielen Dank!

[Jonas0806]

Hallo,

Leider komme ich nicht weiter.

Und was hast Du bisher?

[Nordlicht85]

Ich habe 4 Makros wie folgt eingerichtet:

Sub druck()

ActiveWorkbook.Sheets("Tabelle1").PageSetup.PrintArea = "$A$1:$H$216"

End Sub

-------------------

Sub druck()

ActiveWorkbook.Sheets("Tabelle2").PageSetup.PrintArea = "$A$1:$I$120"

End Sub

-------------------

Sub druck()

ActiveWorkbook.Sheets("Tabelle3").PageSetup.PrintArea = "$A$1:$I$140"

End Sub

-------------------

Sub druck()

ActiveWorkbook.Sheets("Tabelle4").PageSetup.PrintArea = "$A$1:$I$120"

End Sub

[Jonas0806]

Hallo,

hast Du mal den Makrorekorder verwendet? Der liefert da eigentlich alles was ban benötigt. Abspecken und anpassen kann man den Code dann im Nachhinein immernoch.

[Nordlicht85]

Ich habe es probiert, jedoch hat es da auch nicht geklappt.

Kannst du mir sagen was an meinen Codes falsch ist?

[Jonas0806]

Hallo,

Ich habe es probiert, jedoch hat es da auch nicht geklappt.

Und das heißt? Wie sieht der aufgezeichnete Code aus?

Kannst du mir sagen was an meinen Codes falsch ist?

Du führst doch garkeinen Druck aus?!

[Nordlicht85]

Was meinst du mit ich führ doch gar keinen Druck aus? Was muss denn da geändert werden?

Ich hatte bei dem selbst erstellten Makro immer die Fehlermeldung "Debuggen".

[Käpt'n Blaubär]

Hallo,

Kannst du mir sagen was an meinen Codes falsch ist?

woher soll Excel wissen, daß Du Drucken willst wenn Du es ihm durch Dein Makro nicht mitteilst?

Die Anweisung sollte in der Minimalversion etwa so aussehen (muß an Deine Bedingungen angepaßt werden):
Worksheets.PrintOut

[Nordlicht85]

Hallo,

danke für deine Rückmeldung.

Verstehe ich dich richtig, dass die korrekte formel wie folgt lauten muss:

Sub druck()

ActiveWorkbook.Sheets("Tabelle1").Worksheets.PrintOut = "$A$1:$H$216"

End Sub

Sub druck()

ActiveWorkbook.Sheets("Tabelle2").Worksheets.PrintOut = "$A$1:$I$120"

End Sub

Sub druck()

ActiveWorkbook.Sheets("Tabelle3").Worksheets.PrintOut = "$A$1:$I$140"

End Sub

Sub druck()

ActiveWorkbook.Sheets("Tabelle4").Worksheets.PrintOut = "$A$1:$I$120"

End Sub


Leider erfolgt dann die Fehlermeldung: Laufzeitfehler 9. Index außerhalb des gültigen Bereiches.

[RPP63]

Aua!
Da stimmt nicht viel!
Ich würde komplett auf die Druckbereiche verzichten und statt dessen die Range.PrintOut-Methode verwenden.

Gruß Ralf