How do I automatically insert a page break?

**verifier** · 01-06-2014, 10:49 AM

Greetings Everyone:

I work for a newspaper that delivers thousands of papers each delivery cycle. Some addresses have special handling instructions that the contractors have to have printed and handed to them. Those instructions are put into an Excel sheet.......one address per row. Is there a macro that can be written to automatically insert a page break for each row? In the attached example, I only used a few addresses for example purposes. In real life, the list can be several hundred addresses long each day. Currently I manually insert a page break, which can take a VERY long time to complete depending on the number of addresses.

I do not make the sheet either....it comes from another department.

Thanks in advance for the input.

I have attached an example of the sheet.

**rcm** · 01-06-2014, 11:06 AM

Sub Macro1()
'
' Macro1 Macro
'

'
Dim rmax, r
rmax = Sheets("sheet1").Cells(Rows.Count, "A").End(xlUp).Row


r = 6
While r < rmax

    Rows(r & ":" & r).Select
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
r = r + 1
Wend

End Sub

**ragulduy** · 01-06-2014, 11:07 AM

Sub Macro1()

Dim count
For count = 2 To Range("A" & Rows.count).End(xlUp).Row
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Range("A" & count)
Next
End Sub

**verifier** · 01-06-2014, 01:43 PM

Originally Posted by yudlugar

Sub Macro1()

Dim count
For count = 2 To Range("A" & Rows.count).End(xlUp).Row
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Range("A" & count)
Next
End Sub

Tried this one and it works every time. Thank you!!

This has made the chore much, much faster.

How do I automatically insert a page break?

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

How do I automatically insert a page break?

Re: How do I automatically insert a page break?

Re: How do I automatically insert a page break?

Re: How do I automatically insert a page break?

Thread Information

Users Browsing this Thread

Similar Threads

Insert blank row, sum and insert page break macro

insert page header after page break

[SOLVED] Automatically insert page break every 6 rows in excel doc

[SOLVED] automatically insert row at each page break

Insert Page Break

Bookmarks

Bookmarks

Posting Permissions