ich suche nach einer Möglichkeit eine festgelegte Auswahl von Arbeitsblättern nach dem Anklicken eines Feldes auszudrucken.
Wie geht das ?
Vielen Dank für Eure Hilfe !
Mfg Bernhard
Sub drucke_Monateaktuell()'Schaltfläche zuweisen
Select Case ActiveSheet.Name
Case "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12" 'Arbeitsblätter anpassen
Cells.EntireRow.Hidden = False 'ausgeblendete Zeilen einblenden
ActiveSheet.PageSetup.PrintArea = "A4:Aj56" 'Printbereich defenieren füe jede der _
Seiten
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 'einmalieger Ausdruck
Case Else
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 'Drucke den Bereich
End Select
End Sub