Dear All,

User starts on a copy of a template and then edit the sheet by adding data
and adding rows ......
Then they print the sheet by pressing a button.
The code does this:
1. Inserts a Pagebreak before each chapter ( Chapternames are in column A).
Each chapter must start on a new page !
2. Hide all rows that doen't have value = 1 in column M. Orther pintouts (
other buttons) works on other colums.
3. iLastSourceRow = ActiveSheet.Cells.Find(What:="*", After:=[A1],
SearchDirection:=xlPrevious).Row
4. Set MyRange
5. MyRange.PrintOut
6. Unhide hidden rows.

1 document has 7 printouts showing the information they want.

Works OK, but some rows must be printed on the same page!
Those rows united by a borderline (rectangle) starting from a cell in column
B


Is this possible ???

Thanks,

Filip