wie kann man den Druckbereich gleichzeitig für mehrere Tabellenblätter festlegen?
Danke
Otto
Sub druck()
ActiveWorkbook.Sheets("Tabelle1").PageSetup.PrintArea = "$A$1:$C$20"
ActiveWorkbook.Sheets("Tabelle2").PageSetup.PrintArea = "$A$1:$D$34"
End Sub
Sub Druckbereich_bei_mehreren_Bätter_festlegen()
For ws = 1 To Sheets.Count
With Sheets(ws)
.PageSetup.PrintArea = "$A$1:$G$55"
End With
Next ws
End Sub