Setting one page break per row

[required_username]

This should be easy but I can't find the answer. I want to have one record (one row) on a page. I can't find how to do this.



W8 / Excel 10

[jolivanes]

Try this. Change references as required.

Sub Set_Page_Breaks_Every_Row()
Dim c As Range
For Each c In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row + 1)
    c.PageBreak = xlPageBreakManual
Next c
End Sub