Soweit habe ich das auch schon fertig.
Allerdings habe ich nun Probleme, den Seitenumbruch per Code richtig einzustellen.
Die Daten die ich nach Excel exportiere kommen aus einem Grid, welches beliebig viele Spalten und Zeilen haben kann.
Die Voraussetzung ist, das ich immer alle Spalten auf ein Blatt bekommen will, und die Zeilen sich je nach Anzahl auf mehrere Blätter verteilen können.
Hierzu müsste der Zoom korrekt berechnet werden, aber dies macht Excel anscheinend intern, wenn man die Seitenvorschau aufruft...weiss jemand die Lösung für mein Problem...
hier der bisherige Code zur Seitenanpassung:
With objWorkbook.Worksheets.Item(1).PageSetup
'.PrintArea = "$A$1:$I$23"
.LeftHeader = ""
.CenterHeader = "&A"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = "Seite &P von &N"
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.78740157480315)
.RightMargin = Application.InchesToPoints(0.78740157480315)
.TopMargin = Application.InchesToPoints(0.984251968503937)
.BottomMargin = Application.InchesToPoints(0.984251968503937)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = True
.PrintComments = xlPrintNoComments
.PrintQuality = -3
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
End With