Print auto page breaks
 

Can I have a worksheet print with auto page breaks? EX: I have a column with
repeating information sorted in alphabetical order - Names. I want to print
separate pages for each person. Can I have Excel automatically put page
breaks after each grouped set of names? I could do it manually but there are
a lot of names and it would be too time consuming.

Cameron

Print auto page breaks
 

Sub Insert_PBreak()
Dim OldVal As String
Dim rng As Range
OldVal = Range("A1")
For Each rng In Range("A1:A300") '<< change range
If rng.text < OldVal Then
rng.PageBreak = xlPageBreakManual
OldVal = rng.text
End If
Next rng
End Sub


Gord Dibben MS Excel MVP

On Tue, 6 Jan 2009 12:56:02 -0800, Cameron
wrote:

Can I have a worksheet print with auto page breaks? EX: I have a column with
repeating information sorted in alphabetical order - Names. I want to print
separate pages for each person. Can I have Excel automatically put page
breaks after each grouped set of names? I could do it manually but there are
a lot of names and it would be too time consuming.

Cameron