Druckmakro

Hallo liebe Exelfreunde

Habe mal wieder ein Problem mit einem Makro zum Seriendruck unter verschiedenen Bedingungen. Hoffe Ihr könnt mir helfen bei der Lösung.
Es sollen nur die Seiten gedruckt wo in der Zelle D4 eine 1 steht. Wenn und das in der jeweiligen Zeile dann jeweils in 5er Spaltensprüngen. Wenn eine 0 dort steht soll dieser Druckbereich übersprungen werden. Es sind insgesamt 34 Blätter die im Orginal so ausgeselesen und gedruckt werden sollen. Nun mein Problem klappt alles wunderbar wenn in D4 eine absolute Zahl steht außer 0, aber sobald im ersten Druckbereich in D4 die 0 steht kommt die Fehlermeldung "Microsoft visual Basic 400" und bricht ab. Was kann ich tun um dies zu verändern das auch wenn keine Stückzahl dasteht weiter gezählt wird und gedruckt. Mit einer absoluten Zahle in der Zelle gibt es kein Problem.

Sub Schaltfläche1_Klicken()
Dim ws As Worksheet, i As Long, loZeile As Long, loSpalte As Long

For Each ws In ThisWorkbook.Worksheets
    If ws.Name Like "Liefer*" Then
        With ws
            loZeile = .Cells(.Rows.Count, "A").End(xlUp).Row
            For i = 2 To .Cells(12, .Columns.Count).End(xlToLeft).Column Step 5
                If .Cells(12, i) = 0 Then
                    loSpalte = i - 2
                    Exit For
                End If
            Next i
            .Range(.Cells(1, "A"), .Cells(loZeile, loSpalte)).PrintPreview
        End With
    End If
Next ws