ich habe mich jetzt längere Zeit mit dem Drucken von mehreren Blättern beschäftigt.
Das ging gut solang die Blätter Anzahl nicht zu hoch war (3 Tabellenblätter).
Bis Dato habe ich das ganze wie folgt codiert:
Sub Montagepapier_FSU_DOI()
Dim Tabelle As Worksheet
For Each Tabelle In ActiveWorkbook.Worksheets
Tabelle.PageSetup.PrintArea = ""
Next Tabelle
Sheets(Array("Checklist", "FSU", "Einbauerklärung")).Select
ActiveWorkbook.Sheets("Checklist").PageSetup.PrintArea = "$A$1:$I$102"
ActiveWorkbook.Sheets("FSU").PageSetup.PrintArea = "$A$1:$I$51"
ActiveWorkbook.Sheets("Einbauerklärung").PageSetup.PrintArea = "$A$1:$H$55"
Application.Dialogs(xlDialogPrint).Show
End Sub
Da ich jetzt auf 6 Tabellenblätter erweitern musste werden die Kombinationsmöglichkeiten zu viele. Nun möchte ich nach dem Prinzip in der Beispiel Datei meine Reiter auswählen und dann über einen Button Drucken. Leider scheiter ich an dem Code der mir je nach Auswahl der Kästen Meine Tabellenblätter auswählt.
https://www.herber.de/bbs/user/128823.xlsm
Ich wäre für jegliche Hilfe dankbar. Falls ihr noch mehr Informationen braucht werde ich diese schnellstmöglich nachliefern,
ansonsten verbleibe ich mit besten Grüßen,
LG Domi