add pagebreakes every 50 rows

[lior03]

hello
suppose i have a data base of 1,000 rows.how can i plant a pagebreak every 50 rows. maybe?

Sub fiftyrows()
Dim i As Integer
For i = 1 To 1000 Step 50
Rows(i).Pagebreak = xlManual
Next i
End Sub

thanks

[mdmackillop]

Hi Moshe,
Recording the macro will give the basic syntax, and you're there with the rest.

Sub fiftyrows()
Dim i As Integer
For i = 50 To 1000 Step 50
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Rows(i)
Next i
End Sub

[TonyJollans]

Assuming all your rows are the same height - and if they're not 50 might not fit on every page - what about setting the page margins so that automatic breaks happen every 50 rows?

[lior03]

hello

an example will be appreciated.
thanks

[mdmackillop]

Here's an example of Tony's excellent suggestion. It may need some minor adjustment in Print Preview/Margins to suit a particular printer.