Hide Column 1 if you don't want it printed.

Or delete it after you have save the workbook with your pagebreaks set.


Gord

On Tue, 22 Sep 2009 14:05:01 -0700, Stuck
wrote:

It worked.!!! Yea!! I did a test on a 5 row spreadsheet. Is there any way to
supress the "helper column" from printing (I used column 1 for sequencing and
the data is in column 2)? Thanks very much.

"Gord Dibben" wrote:

That's a lot of trees!!

Not sure if I should support this operation<g

In a helper column adjacent to your data enter the numbers 1 through 5000

Start this macro then go for a coffee.

Sub Insert_PBreak()
Dim OldVal As String
Dim rng As Range
OldVal = Range("A1") 'edit to helper column
For Each rng In Range("A1:A5000") 'edit to helper column
If rng.text < OldVal Then
rng.PageBreak = xlPageBreakManual
OldVal = rng.text
End If
Next rng
End Sub

Then print the sheet on your 5000 sheets of paper.


Gord Dibben MS Excel MVP

On Tue, 22 Sep 2009 11:48:02 -0700, Stuck
wrote:

I have a 5,000 row spreadsheet and I need to print each row on it's own page.
Is there an automated way of doing this?