Skipping blank cells to print multiple pdf

Occasional Visitor

I can print now multiple pdfs but when there is more then 1 blank cells it stops and if i do like + 10 it also stops, but I want it to even if it has multiple blank cells just go till you find the value

 

Dim i As Integer
     For i = 3 To 2000

           A = sheet2Tab.Cells(i, 1).Value
            If A = "" Then i = i + 1

            A = sheet2Tab.Cells(i, 1).Value
            If A = "" Then Exit For


Sheets("Sheet1").Range("AC1").Value = Sheets("Sheet2").Cells(i, 1).Value

Application.CutCopyMode = False
Sheet1Tab.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
"(DONT WANT TO SHOW)'', Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Next i

0 Replies