Printing 'continued' message in subreport

[Guest]

I have a report with several subreports. If any subreport is split between
pages of the main report, is there a way to repeat its header and print
'continued' after it. There is some code in each subreport now attempting to
do this but its not working, e.g.:

Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer)
If Me.Parent.Page > 1 Then
[txtHeader] = "Updates: (continued)"
Else
[txtHeader] = "Updates:"
End If
End Sub

 

[Marshall Barton]

I have a report with several subreports. If any subreport is split between
pages of the main report, is there a way to repeat its header and print
'continued' after it. There is some code in each subreport now attempting to
do this but its not working, e.g.:

Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer)
If Me.Parent.Page > 1 Then
[txtHeader] = "Updates: (continued)"
Else
[txtHeader] = "Updates:"
End If
End Sub

You will need a text box (named txtLine) in the detail
section. Set its control source expression to -1 and its
RunningSum property to Over group.

Also add am unbound text box (named txtPage) to the group
header section.

With that done, the code would look like this (air code):

If Me.txtLine = 1 Then
Me.txtHeader = "Updates:"
Else
Me.txtHeader = "Updates: (continued)"
End If