ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Automatic insertion of page breaks (https://www.excelbanter.com/excel-programming/413947-automatic-insertion-page-breaks.html)

Winston

Automatic insertion of page breaks
 
I have an extensive construction completion list, that can be sorted by
room#, subcontractor, floor, author, date, etc. In each room there may be
multiple items that need to be fixed, each item is a separate record. When I
sort the list by room # I want to be able to automatically (or with as little
labor as possible) have page breaks inserted after each room, so that when I
print out the spreadsheet I can have a sheet for each room. Help please.

Tom Ogilvy

Automatic insertion of page breaks
 
You can do that with Data=Subtotals

You will have to generate a subtotal for the room, but that might be useful.

In the bottom of the dialog, select pagebreak between groups.

--
Regards,
Tom Ogilvy




"Winston" wrote:

I have an extensive construction completion list, that can be sorted by
room#, subcontractor, floor, author, date, etc. In each room there may be
multiple items that need to be fixed, each item is a separate record. When I
sort the list by room # I want to be able to automatically (or with as little
labor as possible) have page breaks inserted after each room, so that when I
print out the spreadsheet I can have a sheet for each room. Help please.


joel

Automatic insertion of page breaks
 
Change roomcol as required

Sub SetPasgeBredaks()
'
' Macro1 Macro
' Macro recorded 7/12/2008 by Joel
'

'
RoomCol = "A"
With ActiveSheet
.ResetAllPageBreaks
LastRow = .Range(RoomCol & Rows.Count).End(xlUp).Row
For RowCount = 2 To LastRow
If .Range(RoomCol & RowCount) < _
.Range(RoomCol & (RowCount - 1)) Then

.HPageBreaks.Add Befo=.Range("A" & RowCount)
End If
Next RowCount
End With
End Sub


"Winston" wrote:

I have an extensive construction completion list, that can be sorted by
room#, subcontractor, floor, author, date, etc. In each room there may be
multiple items that need to be fixed, each item is a separate record. When I
sort the list by room # I want to be able to automatically (or with as little
labor as possible) have page breaks inserted after each room, so that when I
print out the spreadsheet I can have a sheet for each room. Help please.



All times are GMT +1. The time now is 04:12 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com