Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
insert page break
Hi all,
I have an excel sheet where hundreds of invoices are found and would like to insert page breaks after the word 'Total' is being displayed. Is that possible? Thks in advance -- Message posted via http://www.officekb.com |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
insert page break
Try this:
HTH -- AP '--------------- Sub InsertPB() Dim rTotal As Range Dim sFirstFound As String With ActiveSheet Set rTotal = .UsedRange.Find( _ what:="Total", _ lookat:=xlWhole) If Not rTotal Is Nothing Then sFirstFound = rTotal.Address Do .HPageBreaks.Add befo=rTotal.Offset(1, 0) Set rTotal = .UsedRange.FindNext(after:=rTotal) Loop Until rTotal.Address = sFirstFound End If End With End Sub '--------------- "ruben via OfficeKB.com" <u21729@uwe a écrit dans le message de news: 6012de74a9ca8@uwe... Hi all, I have an excel sheet where hundreds of invoices are found and would like to insert page breaks after the word 'Total' is being displayed. Is that possible? Thks in advance -- Message posted via http://www.officekb.com |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
insert page break
Ardus Petus wrote:
Try this: HTH -- AP '--------------- Sub InsertPB() Dim rTotal As Range Dim sFirstFound As String With ActiveSheet Set rTotal = .UsedRange.Find( _ what:="Total", _ lookat:=xlWhole) If Not rTotal Is Nothing Then sFirstFound = rTotal.Address Do .HPageBreaks.Add befo=rTotal.Offset(1, 0) Set rTotal = .UsedRange.FindNext(after:=rTotal) Loop Until rTotal.Address = sFirstFound End If End With End Sub '--------------- Hi all, [quoted text clipped - 4 lines] Thks in advance Thanks AP, Works just fine. U'r a genius. -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.a...mming/200605/1 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
insert page break
Thanks for the feedback!
Cheers, -- AP "ruben via OfficeKB.com" <u21729@uwe a écrit dans le message de news: 601598b4c7716@uwe... Ardus Petus wrote: Try this: HTH -- AP '--------------- Sub InsertPB() Dim rTotal As Range Dim sFirstFound As String With ActiveSheet Set rTotal = .UsedRange.Find( _ what:="Total", _ lookat:=xlWhole) If Not rTotal Is Nothing Then sFirstFound = rTotal.Address Do .HPageBreaks.Add befo=rTotal.Offset(1, 0) Set rTotal = .UsedRange.FindNext(after:=rTotal) Loop Until rTotal.Address = sFirstFound End If End With End Sub '--------------- Hi all, [quoted text clipped - 4 lines] Thks in advance Thanks AP, Works just fine. U'r a genius. -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.a...mming/200605/1 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Insert Page Break | Excel Discussion (Misc queries) | |||
How do I insert a page break between every row and column? | Excel Discussion (Misc queries) | |||
INSERT ROW AND PAGE BREAK | Excel Discussion (Misc queries) | |||
cannot insert page break | Excel Discussion (Misc queries) | |||
Insert Page Break | Excel Discussion (Misc queries) |