how to set page break for continuous numerical sheet printing
I am printing endless consecutive numbers and I want to set the page break at
the same place each time automatically. |
how to set page break for continuous numerical sheet printing
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. |
All times are GMT +1. The time now is 10:37 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com