Report Printing for Summing Error!!!!!!!

[Keith]

This is the following code that I wrote to sum columns on each page. It
works just fine. BUT when you go to print or send it in word RTF format the
totals on the FIRST page only are either zeroed out or in the negative. The
rest of the pages are just fine.

ANY SULOTION TO THIS????


Option Compare Database

Dim d As Double
Dim a As Double
Dim c As Double
Dim z As Double
Dim x As Double

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As
Integer)


End Sub

Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer)
Me!Pagesum = Me!RunSum - x
Me!PageSum1 = Me!RunSum1 - z
Me!PageSum2 = Me!RunSum2 - a
Me!PageSum3 = Me!RunSum3 - c
Me!PageCount = Me!RunCount - d
x = Me!RunSum
z = Me!RunSum1
a = Me!RunSum2
c = Me!RunSum3
d = Me!RunCount

End Sub

Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As Integer)


End Sub

Private Sub ReportHeader_Print(Cancel As Integer, PrintCount As Integer)
x = 0
z = 0
a = 0
c = 0
d = 0
End Sub