Dies ist mein erster Eintrag! Ich freue mich hier zu sein und hoffe Hilfe zu bekommen. gruss lütti
Sub Druckbereich_anpassen()
for each w_sheet in ActiveWorkbook.Sheets
w_sheet.PageSetup.PrintArea = (Deine Vorgaben)
next w_Sheet
End Sub
Viel Erfolg,