I am printing endless consecutive numbers and I want to set the page break at
the same place each time automatically.

Here is a subroutine to add page breaks and one to remove them
Note that the first one assumes your list is in column A of Sheet2; modify
code as needed

Sub insertBreaks()
lastrow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
howmany = InputBox("How many rows on a page?")
Application.ScreenUpdating = False
For j = howmany To lastrow Step howmany
Worksheets("Sheet2").Rows(j).PageBreak = xlPageBreakManual
Next j
Application.ScreenUpdating = True
End Sub


Sub removeBreaks()
Worksheets("Sheet2").ResetAllPageBreaks
End Sub

New to VBA?
David McRitchie's site on "getting started" with VBA

http://www.mvps.org/dmcritchie/excel/getstarted.htm

Debra Dalgleish's "Adding Code to a Workbook"

http://www.contextures.com:80/xlvba01.html
best wishes
--
Bernard V Liengme
Microsoft Excel MVP
http://people.stfx.ca/bliengme
remove caps from email

"Woodbug" wrote in message
...
I am printing endless consecutive numbers and I want to set the page break
at
the same place each time automatically.