Druckvorschau nicht zusammenhängende Spa

Sub Drucken4() 'makro zum Drucken inkl. Druckbereichsanpassung
Application.ScreenUpdating = False
Dim intWert As Integer, intSpalte As Integer, intZeile As Integer, intAnz As Integer
Dim loLetzte As Long, raDruckbereich As Range
With ActiveWorkbook.Worksheets("Berechnungstabelle")
loLetzte = .Cells(Cells.Rows.Count, 1).End(xlUp).Row
intSpalte = 1 '8
intZeile = 1
intAnz = WorksheetFunction.CountA(.Range("A2:A" & loLetzte))
Zae2 = 0
For Zae1 = 1 To intAnz
intWert = .Cells(intZeile + Zae1, intSpalte)
If intWert > 0 Then
Set raDruckbereich = .Range(Cells(intZeile, 1), Cells(intZeile + Zae1, 8))
Zae2 = Zae2 + 1
End If
Next Zae1
.PageSetup.PrintArea = ""
.PageSetup.PrintArea = raDruckbereich.Address
.PrintPreview
End With
Application.ScreenUpdating = True
Set raDruckbereich = Nothing
End Sub