benötige eine Code Änderung, (flexible Auswahl)
wenn zb Sheet 1,3,7 selectiert sind, soll er mit den gleichen Einstellung wie im alten Code
diese Sheets drucken.
Array nutzen mit flexibler Auswahl ? ich weis echt nicht wie ich das lösen kann.
Sub drucke_Mappe_3U()
Select Case ActiveSheet.Name
Case "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12"
Cells.EntireRow.Hidden = False
Rows("5:30").Select
Selection.EntireRow.Hidden = True
Rows("32:52").Select
Selection.RowHeight = 35
ActiveSheet.PageSetup.PrintArea = "A32:Aj52"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Case Else
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Select
Rows("32:52").Select
Selection.RowHeight = 15
Cells.EntireRow.Hidden = False
Range("A3").Select
End Sub
Wenn ich mit dem geposteten code alle Sheets markiere 1-12, dann ist Sheet1 Ok der Rest der Sheets,übernimmt er die Zeilenhöhe nicht und der Druckbereich ist auch anders.
Vorab schon jetzt einen Dank an Euch Helfer,
Mfg Matthias