how to automatically add page breaks?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

mcie2 - 17 May 2008 22:59 GMT

Is there a way to either write a macro or something else so that each time a
certain word appears (total) a page break inserts? It's a long report that I
need to print each totaled group on a separate page. It would be great if I
could somehow get the page breaks in without having to add each one manually.

Reply to this Message

Joel - 18 May 2008 00:04 GMT

Try this code. It searches column A for the word Add and puts a page break
after the row with the word ADD

ActiveSheet.ResetAllPageBreaks

LastRow = ActiveSheet.Cells. _
SpecialCells(Type:=xlCellTypeLastCell).Row
For RowCount = 1 To LastRow
If Range("A" & RowCount) = "Add" Then
ActiveSheet.HPageBreaks.Add _
before:=Rows(RowCount + 1)
End If
Next RowCount

> Is there a way to either write a macro or something else so that each time a
> certain word appears (total) a page break inserts? It's a long report that I
> need to print each totaled group on a separate page. It would be great if I
> could somehow get the page breaks in without having to add each one manually.

Reply to this Message