NickHK Wrote:
AMK4,
Does this get you closer:
Dim i As Long
Const ROWS_PER_PAGE As Long = 17 'Or whatever suits you

With ActiveSheet
.ResetAllPageBreaks
For i = ROWS_PER_PAGE To .UsedRange.Rows.Count Step ROWS_PER_PAGE
.HPageBreaks.Add .Cells(i, "A")
Next
End With

NickHK

Well, not quite. This just adds a pagebreak after each part, when it
could easily fit up to 3 parts on one printed sheet.

My other problem right now is trying to figure out how to set a
vertical pagebreak. I figured out to set one manually, but I can't
figure out how to actually tell it to get rid of the one
(automatically) placed on a different column.


--
AMK4
------------------------------------------------------------------------
AMK4's Profile: http://www.excelforum.com/member.php...o&userid=19143
View this thread: http://www.excelforum.com/showthread...hreadid=509182