AW: Format (Layout) in einer Gruppierung
31.05.2007 12:05:51
Oberschlumpf
Hi Andreas
Nun sieht es schon anders aus :)
Ich z Bsp dachte bisher, dass es um das Tabellenlayout geht und nicht um das Drucklayout.
Ausserdem dachte ich, du meinst mit "Gruppierung" die Gruppierung über Daten/Gruppierung und Gliederung. Aber deine Tabelle ist "nur" durch Leerzeilen in Gruppen aufgeteilt.
Aber ok, diese Missverständnisse kommen auf, weil sich nicht immer alles genau so formulieren lässt, wie man es meint - daher...ein Bild oder Bsp-Datei :-) "sagt" oft mehr, als viele Worte :-)
Versuch es mal mit diesem Code:
Sub prLayout()
Dim liSh As Integer
For liSh = 1 To Sheets.Count
With Sheets(liSh).PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = "&Z&F"
.CenterFooter = ""
.RightFooter = "&D"
.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 = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
End With
Next
End Sub
Mit diesem Code wird für alle Tabellenblätter das selbe Drucklayout eingestellt.
Vielleicht kannst du den Code "abkürzen", in dem du alle Zeilen mit = "" und = False löschst - ich hab es nicht versucht. Dieser Code ist mit Hilfe des Makrorecorders entstanden - für ein Tabellenblatt - ich hab ihn dann nur für alle angepasst.
Aber!!!
Teste erst mal mit einer Kopie deiner Originaldatei.
Konnte ich helfen?
Ciao
Thorsten