I want to do a page break at each new location...for example:

Location#
11028
11029

At the end of each location I want to do a page break.....How can I do this???

Hi pm,

Go to ViewPage Break Preview
Click on a blue line and drag it to where you want it.
If you get a bit savage with it at first you will soon see how it works.
By savage I mean grab one line and drag it way off to the right
then grab another and drag it way down the bottom.

HTH
Martin

"pm" wrote in message
...
I want to do a page break at each new location...for example:

Location#
11028
11029

At the end of each location I want to do a page break.....How can I do
this???

You OK with a macro?

Sub InsertBreak_At_Change()
Dim i As Long
For i = Columns(1).Rows.Count To 1 Step -1
If Selection(i).Row = 1 Then Exit Sub
If Selection(i) < Selection(i - 1) And Not IsEmpty _
(Selection(i - 1)) Then
With Selection(i)
.PageBreak = xlPageBreakManual
End With
End If
Next
End Sub


Gord Dibben MS Excel MVP



On Sat, 8 Sep 2007 07:20:01 -0700, pm wrote:

I want to do a page break at each new location...for example:

Location#
11028
11029

At the end of each location I want to do a page break.....How can I do this???

Gord - - works fabulously! Thanks so much
pm

"Gord Dibben" wrote:

You OK with a macro?

Sub InsertBreak_At_Change()
Dim i As Long
For i = Columns(1).Rows.Count To 1 Step -1
If Selection(i).Row = 1 Then Exit Sub
If Selection(i) < Selection(i - 1) And Not IsEmpty _
(Selection(i - 1)) Then
With Selection(i)
.PageBreak = xlPageBreakManual
End With
End If
Next
End Sub


Gord Dibben MS Excel MVP



On Sat, 8 Sep 2007 07:20:01 -0700, pm wrote:

I want to do a page break at each new location...for example:

Location#
11028
11029

At the end of each location I want to do a page break.....How can I do this???

Thanks for the feedback.

Gord

On Sat, 8 Sep 2007 09:18:02 -0700, pm wrote:

Gord - - works fabulously! Thanks so much
pm

"Gord Dibben" wrote:

You OK with a macro?

Sub InsertBreak_At_Change()
Dim i As Long
For i = Columns(1).Rows.Count To 1 Step -1
If Selection(i).Row = 1 Then Exit Sub
If Selection(i) < Selection(i - 1) And Not IsEmpty _
(Selection(i - 1)) Then
With Selection(i)
.PageBreak = xlPageBreakManual
End With
End If
Next
End Sub


Gord Dibben MS Excel MVP



On Sat, 8 Sep 2007 07:20:01 -0700, pm wrote:

I want to do a page break at each new location...for example:

Location#
11028
11029

At the end of each location I want to do a page break.....How can I do this???