brach mal wieder Hilfe!
Wie kann ich für ca. 200 Tabellenblätter das gleiche Seitenlayout festlegen?
Habe mir mit dem Makrorekorder folgendes Makro aufgezeichnet,was fehlt noch um für alle Blätter in der Arbeitsmappe das gleiche Layout festzulegen?
Danke im Voraus
Gruß Didi
Sub Layout_festlegen()
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.393700787401575)
.RightMargin = Application.InchesToPoints(0.393700787401575)
.TopMargin = Application.InchesToPoints(0.393700787401575)
.BottomMargin = Application.InchesToPoints(0.393700787401575)
.HeaderMargin = Application.InchesToPoints(0.196850393700787)
.FooterMargin = Application.InchesToPoints(0.196850393700787)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = -3
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 70
End With
End Sub