Erweiterung von PageSetup

Sub DruckVorschau(strTabname$)
Dim MaxRow&
Dim sPrintAr$
UserForm1Druckvorschau.Hide
With Sheets(strTabname)
MaxRow = .Cells(.Rows.Count, 1).End(xlUp).Row
sPrintAr = .PageSetup.PrintArea
Application.DisplayAlerts = False
.PageSetup.PrintArea = Intersect(.Rows(1).Resize(MaxRow), .UsedRange).Address(0, 0)
Application.DisplayAlerts = True
Application.OnTime Now + TimeSerial(0, 0, 1), "'TabellenAnsicht """ & strTabname & """,""" & _
_
sPrintAr & """'"
'.PrintPreview
If .Range("A37").Value = 0 Then .Rows("37:41").Hidden = True
.PrintPreview
.Rows("37:41").Hidden = False
End With
End Sub

Sub TabellenAnsicht(strTabname$, sPrintAr$)
Application.DisplayAlerts = False
Sheets(strTabname).PageSetup.PrintArea = sPrintAr
Application.DisplayAlerts = True
'UserForm1Druckvorschau.Show
UserForm1Druckvorschau_Wertsetzen
End Sub