Druckbereiche dokumentieren

Sub DruckbereicheReport()
    Dim ws As Worksheet, out As Worksheet, r As Long
    Set out = Worksheets.Add
    out.Name = "Druck_Report_" & Format(Now, "hhnnss")
    out.Range("A1:B1").Value = Array("Blatt", "Druckbereich")
    r = 2
    For Each ws In ThisWorkbook.Worksheets
        out.Cells(r, 1).Value = ws.Name
        out.Cells(r, 2).Value = ws.PageSetup.PrintArea
        r = r + 1
    Next ws
    out.Columns.AutoFit
End Sub