Sub Pagesetup_Uebernehmen()
Dim ps As PageSetup, sh As Worksheet
Set ps = ActiveSheet.PageSetup
For Each sh In ActiveWorkbook.Worksheets
If sh.Name <> ActiveSheet.Name Then
With sh.PageSetup
.BlackAndWhite = ps.BlackAndWhite
.BottomMargin = ps.BottomMargin
.CenterFooter = ps.CenterFooter
.CenterHeader = ps.CenterHeader
.CenterHorizontally = ps.CenterHorizontally
.CenterVertically = ps.CenterVertically
.Draft = ps.Draft
.FirstPageNumber = ps.FirstPageNumber
.FitToPagesTall = ps.FitToPagesTall
.FitToPagesWide = ps.FitToPagesWide
.FooterMargin = ps.FooterMargin
.HeaderMargin = ps.HeaderMargin
.LeftFooter = ps.LeftFooter
.LeftHeader = ps.LeftHeader
.LeftMargin = ps.LeftMargin
.Order = ps.Order
.Orientation = ps.Orientation
.PaperSize = ps.PaperSize
.PrintArea = ps.PrintArea
.PrintComments = ps.PrintComments
.PrintErrors = ps.PrintErrors
.PrintGridlines = ps.PrintGridlines
.PrintHeadings = ps.PrintHeadings
.PrintNotes = ps.PrintNotes
.PrintQuality = ps.PrintQuality
.PrintTitleColumns = ps.PrintTitleColumns
.PrintTitleRows = ps.PrintTitleRows
.RightFooter = ps.RightFooter
.RightHeader = ps.RightHeader
.RightMargin = ps.RightMargin
.TopMargin = ps.TopMargin
.Zoom = ps.Zoom
End With
End If
Next sh
End Sub
Um die Druckeinstellungen für alle Blätter in Deiner Excel-Arbeitsmappe zu übernehmen, folge diesen Schritten:
Arbeitsblätter markieren: Halte die CTRL-Taste gedrückt und klicke auf die Registerkarten der Arbeitsblätter, die Du anpassen möchtest. Alternativ kannst Du auch alle Blätter auswählen, indem Du mit der rechten Maustaste auf eine Registerkarte klickst und „Alle Blätter auswählen“ wählst.
Seitenlayout anpassen: Gehe zum Reiter "Seitenlayout" und klicke auf „Seite einrichten“. Hier kannst Du die gewünschten Einstellungen wie Ränder, Ausrichtung, Papiergröße und mehr vornehmen.
Druckbereich festlegen: Um den Druckbereich für alle Blätter festzulegen, gehe zu „Druckbereich“ im Reiter „Seitenlayout“ und wähle „Druckbereich festlegen“.
Drucktitel für alle Blätter: Falls Du Drucktitel für alle Blätter festlegen möchtest, gehe wieder zu „Seite einrichten“ und füge in den entsprechenden Feldern die Zeilen oder Spalten ein, die als Titel gedruckt werden sollen.
Drucken: Um die gesamte Arbeitsmappe zu drucken, gehe zu „Datei“ > „Drucken“. Hier kannst Du die Druckeinstellungen für die gesamte Arbeitsmappe überprüfen.
Problem: Die Einstellungen werden nicht auf alle Blätter angewendet.
Problem: Der Druckbereich wird nicht angezeigt.
Falls Du die Einstellungen nicht manuell übernehmen möchtest, kannst Du ein Makro verwenden. Hier ist ein einfaches VBA-Skript, das die Druckeinstellungen auf alle Arbeitsblätter kopiert:
Sub Pagesetup_Uebernehmen()
Dim ps As PageSetup, sh As Worksheet
Set ps = ActiveSheet.PageSetup
For Each sh In ActiveWorkbook.Worksheets
If sh.Name <> ActiveSheet.Name Then
With sh.PageSetup
.BlackAndWhite = ps.BlackAndWhite
.BottomMargin = ps.BottomMargin
.CenterFooter = ps.CenterFooter
.CenterHeader = ps.CenterHeader
.CenterHorizontally = ps.CenterHorizontally
.CenterVertically = ps.CenterVertically
.Draft = ps.Draft
.FirstPageNumber = ps.FirstPageNumber
.FitToPagesTall = ps.FitToPagesTall
.FitToPagesWide = ps.FitToPagesWide
.FooterMargin = ps.FooterMargin
.HeaderMargin = ps.HeaderMargin
.LeftFooter = ps.LeftFooter
.LeftHeader = ps.LeftHeader
.LeftMargin = ps.LeftMargin
.Order = ps.Order
.Orientation = ps.Orientation
.PaperSize = ps.PaperSize
.PrintArea = ps.PrintArea
.PrintComments = ps.PrintComments
.PrintErrors = ps.PrintErrors
.PrintGridlines = ps.PrintGridlines
.PrintHeadings = ps.PrintHeadings
.PrintNotes = ps.PrintNotes
.PrintQuality = ps.PrintQuality
.PrintTitleColumns = ps.PrintTitleColumns
.PrintTitleRows = ps.PrintTitleRows
.RightFooter = ps.RightFooter
.RightHeader = ps.RightHeader
.RightMargin = ps.RightMargin
.TopMargin = ps.TopMargin
.Zoom = ps.Zoom
End With
End If
Next sh
End SubFühre dieses Makro aus, um die Druckeinstellungen auf alle Arbeitsblätter zu übertragen.
Druckbereich für mehrere Arbeitsblätter festlegen:
Drucken der gesamten Arbeitsmappe einseitig:
1. Wie kann ich die Druckeinstellungen für mehrere Arbeitsblätter festlegen? Du kannst alle gewünschten Blätter markieren und dann die Seitenlayout-Einstellungen anpassen. So werden die Änderungen auf alle ausgewählten Blätter angewendet.
2. Gibt es eine Möglichkeit, die Druckbereichseinstellungen zu speichern? Ja, Du kannst ein Makro verwenden, um die Druckeinstellungen und den Druckbereich für alle Blätter zu speichern und später wieder anzuwenden.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen