Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Page Break Automation
I tried Gord D.'s "clunker".
Couldn't get it to work, even with help from the group. Then I found the following, apparently originally from Frank Kabel. Works great, EXCEPT, it also puts a page break under the header. Can someone tell me how to get the following to ignore header rows. If I can specify (within the module), the number of header rows, this macro would be very versatile. (for many people) Just specify how many header rows there are, and which column is to be searched...... and Bob's your uncle. Sub AAAInsertBreak() ' AAAInsertBreak Macro ' Insert Page Break after each change of ' Data in Column B ' From Frank Kabel, Germany ' I added the following reset ActiveSheet.ResetAllPageBreaks Dim lastrow As Long Dim row_index As Long 'All the "B"'s were "A"'s, originally lastrow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row For row_index = lastrow - 1 To 1 Step -1 If Cells(row_index, "B").Value < _ Cells(row_index + 1, "B").Value Then ActiveSheet.HPageBreaks.Add Befo= _ Cells(row_index + 1, "B") End If Next 'I added the Message Box MsgBox "COMPLETE!" End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel 2007 Page Break Adjustments causes a page break each cell | Excel Worksheet Functions | |||
How do I do page breaks when view menu doesnt page break preview | Excel Discussion (Misc queries) | |||
Remove big gray page number on Page Break Preview??? | Excel Discussion (Misc queries) | |||
change and/or remove page number watermark in page break preview | Excel Discussion (Misc queries) | |||
adding a new page break to an existing page break | Excel Discussion (Misc queries) |