Drucke best. Sheets u. Bereiche

Sub drucke_Monataktuell()
ActiveSheet.PageSetup.PrintArea = "$A$1:$AJ$38"      'Festlegen des Druckbereichs
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True   'Drucke den Bereich
End Sub

1Probleme:
Wie mache ich es das dieser Code nur mit bestimmten Tabellen funktioniert (Januar-Dezember)
restliche Blätter ausklammer da der Druckbereich nicht paßt.
eventuell über einen Button in Jedem Monatsblatt?
oder gibts da noch ne andere Lösung.
2Problem:
Wie drucke ich das aus im "Schnelldruck" für weniger Tinte? Benötige Jedes Blatt 50 mal
Für Eure Hilfe ein Danke im Vorraus.
Gruss
Matthias