Page break macro

[KeithRoberts]

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