Druckbereiche
06.03.2008 16:49:00
Fred
ist es möglich den Druckbereich per VBA für verschiedene Seiten unterschiedlich zu formatieren?
Ich habe auf einer Seite sehr viele Tabellen. Manche davon hätte ich gerne in Portrait, andere in Landscape.
Bisher definiere ich mit folgendem Code die Druckeinstellungen:
Public Sub druckbereich()
Application.ScreenUpdating = False
' Stelle Druckbereich ein
With Worksheets("tempdrucken").PageSetup
.Orientation = xlPortrait 'xllandscape
.PaperSize = xlPaperA4
.Zoom = 55 'ZOOMBEREICH GGF. ANPASSEN
.CenterHorizontally = True
.PrintErrors = xlPrintErrorsDisplayed
.TopMargin = Application.CentimetersToPoints(2)
.BottomMargin = Application.CentimetersToPoints(2)
.LeftMargin = Application.CentimetersToPoints(1)
.RightMargin = Application.CentimetersToPoints(1)
.PrintTitleRows = ActiveSheet.Rows("1:9").Address
.LeftFooter = "&d"
.CenterFooter = "&F"
.RightFooter = "Seite &p & von &n"
End With
ActiveSheet.PrintPreview
End Sub
Ist es Möglich im Code einzufügen, dass bspw. Seiten 1 - 4 landscape sein sollen und Seiten 5 - 7 Portrait? Falls nicht, könnte ich das ganze ja einfach auf 2 Sheets kopieren. Wie sage ich dann aber Excel, dass ich beide Sheets drucken möchte, dass die Seitenzahlen aber kontinuierlich durchzählen?
Vielen Dank für eure Hilfe!!!
Gruß
Fred
Anzeige