Insert page break "after" condition met?

[lmmay]

I am trying to use the following to print a multiple page worksheet.
Can not figure out what my error is.

Sub Set_Print_Area()
'Unprotect Worksheet


ActiveSheet.Unprotect Password:="XXXXXXXe"


'Set Print and Review


    Dim c As Range
    Dim FirstAddress As String
   
    Set c = Columns("B").Find(What:="APPLICANT NAME:", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
    If Not c Is Nothing Then
        FirstAddress = c.Address
        Do
            ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=c.Offset(0)
            Set c = Columns("B").FindNext(c)
        Loop While Not c Is Nothing And c.Address <> FirstAddress
    End If
   
   
   x = ActiveSheet.UsedRange.Columns.Count
   Set lastCell = Cells.SpecialCells(xlCellTypeLastCell)
   ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), lastCell).Address
   ActiveSheet.Range("Q2655").End(xlUp).Select
   




ActiveSheet.PrintPreview

 

[lmmay]

HPageBreaks still not breaking on the "Applicant Name:" row.
I give up!
Will have to teach my Applicants how to manually set the page breaks.

Thanks for trying to help my feeble attempt.

 

[mikerickson]

Are merged cells a potential issue?

 

[lmmay]

No. I un-merged the three instances and still incorrect breaks.

 

[shg]

The code ran fine for me on your workbook.

 

[lmmay]

The pages broke correctly on page 4, 5, & 6, which should be the max anyone will need?