how to set page break for continuous numerical sheet printing

  • Thread starter Thread starter Woodbug
  • Start date Start date
W

Woodbug

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
 
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
 
Back
Top