insert page break

[ruben via OfficeKB.com]

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

 

[Ardus Petus]

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 before:=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]

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 before:=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.

 

[Ardus Petus]

Thanks for the feedback!

Cheers,
--
AP

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 before:=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.