Microsoft Office Forums - View Single Post - [Solved] Setting one page break per row

Thread: [Solved] Setting one page break per row

View Single Post

Old

02-03-2017, 08:04 PM

jolivanes

jolivanes is offline

jolivanes uses Windows XP

Windows XP jolivanes uses Office 2007

jolivanes uses Office 2007

Office 2007

Advanced Beginner

Join Date: Sep 2011

Posts: 91

jolivanes will become famous soon enough

Default

Try this. Change references as required.

Code:

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

Reply With Quote