Siehe Frage weiter unten in Makro:

With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.590551181102362)
.RightMargin = Application.InchesToPoints(0.196850393700787)
.TopMargin = Application.InchesToPoints(0.196850393700787)
.BottomMargin = Application.InchesToPoints(0.590551181102362)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
' Wie kann man hier einen Check machen mit If,
' ob eine bestimmte Spalte leer ist. Und wenn diese
' leer ist, soll das Makro die vorherige Spalte
' checken, ob diese leer ist usw. Das Ziel des Makro
' ist es, die FitToPagesWide-Zahl automatisch und optimal
' zu ermitteln. Z. B. dass FitToPagesWide = 2, wenn die Spalten-
' anzahl = 60 ist, und dass FitToPagesWide = 1, wenn die Spalten-
' anzahl = 30 ist.
.FitToPagesWide = 2
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
End With