PDA

View Full Version : Page break macro



Pete
10-16-2008, 06:32 AM
Hi

How would i tidy-up the following macro to insert page breaks

Sub InsertPageBreaks()

SelectTaskField Row:=1, Column:="Text12"
PageBreakSet
SelectTaskField Row:=2, Column:="Text12"
PageBreakSet
SelectTaskField Row:=3, Column:="Text12"
PageBreakSet
SelectTaskField Row:=4, Column:="Text12"
PageBreakSet
SelectTaskField Row:=5, Column:="Text12"
PageBreakSet

End Sub

KeithRoberts
12-08-2008, 01:33 PM
If I understand what you are looking for, try this code:



Sub InsertPageBreaks()

Dim lCntr As Long

For lCntr = 1 to 5
SelectTaskField Row:=lCntr, Column:="Text12"
PageBreakSet
Next lCntr

End Sub