Assuming the columns being summed are called [amount] and [curr dedn] for a
grand total at the end of the report you can add a text box to the report
footer with a ControlSource property of:
=Sum([amount])-Sum([curr dedn])
For a cumulative running total at the bottom of each page add an unbound
text box, txtPageTotal say to the page footer and in the report header's
Print event procedure initialise it to zero:
Me.[txtPageTotal] = 0
In the detail section's Print event procedure increment it, examining the
PrintCount property to avoid any inadvertent double counting:
If PrintCount = 1
Me.[txtPageTotal] = [txtPageTotal] + (Me.[amount]-Me.[curr dedn])
End If
This will of course also give a grand total at the end of the report in the
final page footer, so you can do without the grand total in the report footer
if you wish, or you can keep that and hide the control in the page footer on
the final page by putting the following in the page footer's Format event
procedure:
Me.[txtPageTotal].Visible = (Page < Pages)
For this last method to work you need to reference the Pages property in a
control, so, if this is not already being done in a control, add another text
box to the page footer, set its Visible property to False (No) and its
ControlSource property to:
=Pages
Ken Sheridan
Stafford, England
