Set print area
 

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

Set print area
 

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 befo=ActiveCell
Next
End Sub

Mike

"Mery" wrote:

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

Set print area
 

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

"Mery" wrote:

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

Set print area
 

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 befo=ActiveCell
Next
End Sub

Mike

"Mery" wrote:

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


It's works,Thank you very much!!