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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen