Thread: Hard Page Break

I found this macro in this newsgroup, but it is putting the page breaks after
not before the "Results" which in my case is going to be 1/12/2005.

Option Explicit
Sub insert_pagebreak()
Dim lastrow As Long
Dim row_index As Long

lastrow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).row
For row_index = lastrow - 1 To 1 Step -1
If Cells(row_index, "A").Value ="Result" then
ActiveSheet.HPageBreaks.Add Before:= _
Cells(row_index + 1, "A")
End If
Next
End Sub

Sub remove_them()
ActiveSheet.ResetAllPageBreaks
End Sub

Thank you for all your help in advance.

Dottie

perhaps not very helpful, but your code works for me unchanged. It inserts
a page break after the line with "Result" in column A.

Regards

Trevor


"Dottie" <Dottie@discussions.microsoft.com> wrote in message
news:76C9E0FE-312C-4EC6-98C9-D6B4ED266EC8@microsoft.com...
>I found this macro in this newsgroup, but it is putting the page breaks
>after
> not before the "Results" which in my case is going to be 1/12/2005.
>
> Option Explicit
> Sub insert_pagebreak()
> Dim lastrow As Long
> Dim row_index As Long
>
> lastrow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).row
> For row_index = lastrow - 1 To 1 Step -1
> If Cells(row_index, "A").Value ="Result" then
> ActiveSheet.HPageBreaks.Add Before:= _
> Cells(row_index + 1, "A")
> End If
> Next
> End Sub
>
> Sub remove_them()
> ActiveSheet.ResetAllPageBreaks
> End Sub
>
> Thank you for all your help in advance.

If you want the break before the line, remove the "+ 1".


On Wed, 12 Jan 2005 12:57:02 -0800, Dottie <Dottie@discussions.microsoft.com>
wrote:

>I found this macro in this newsgroup, but it is putting the page breaks after
>not before the "Results" which in my case is going to be 1/12/2005.
>
>Option Explicit
>Sub insert_pagebreak()
>Dim lastrow As Long
>Dim row_index As Long
>
>lastrow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).row
>For row_index = lastrow - 1 To 1 Step -1
> If Cells(row_index, "A").Value ="Result" then
> ActiveSheet.HPageBreaks.Add Before:= _
> Cells(row_index + 1, "A")
> End If
>Next
>End Sub
>
>Sub remove_them()
>ActiveSheet.ResetAllPageBreaks
>End Sub
>
>Thank you for all your help in advance.