Set print area

[Mery]

Hi, I have a little problem and I hope to find some useful answers!
Particulary , I wont to do for once command in exel in one Sheet make each
twentieth row to be break page and get it at once the 500 break pages.

Any help will be valuable!
Thanks in advance!
Mery

 

[Mike H]

Hi,

I may have misunderstood but I calulate that a page break every 2 rows is 25
page breaks. Try this. Right click your sheet tab, view code and paste this
in and run it.

Sub standard()
For x = 21 To 501 Step 20
Cells(x, 1).Select
ActiveSheet.HPageBreaks.Add before:=ActiveCell
Next
End Sub

Mike

 

[Joel]

LastRow = Range("A" & Rows.Count).End(xlUp).Row
For RowCount = 20 To LastRow Step 20
ActiveSheet.HPageBreaks.Add Before:=Range("A" & RowCount)
Next RowCount
End Sub

 

[Mery]

Korisnik "Mike H" napisao je:

Hi,

I may have misunderstood but I calulate that a page break every 2 rows is 25
page breaks. Try this. Right click your sheet tab, view code and paste this
in and run it.

Sub standard()
For x = 21 To 501 Step 20
Cells(x, 1).Select
ActiveSheet.HPageBreaks.Add before:=ActiveCell
Next
End Sub

Mike

It's works,Thank you very much!!