I want to sum value per pages in report

My coded now:
-------------------------------
Option Compare Database
Option Explicit
Dim X, Y As Currency '<< I used to Long,Integer and Double but It had problem too

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If TheCounter Mod 8 = 0 Then
Me.PageBreak.Visible = True
Else
Me.PageBreak.Visible = False
End If

End Sub

-------------------------------------
Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer)

SAL_SUM_PAGE = SAL_SUM_RUN - X
X = SAL_SUM_RUN

DEB_TAXMONEY_PAGE = DEB_TAXMONEY_RUN - Y
Y = DEB_TAXMONEY_RUN

TAX_PAYER = Forms![tax_money_month_report]!Label25.Caption
TAX_PAYER_POSITION = Forms![tax_money_month_report]!Label24.Caption
End Sub
-------------------------------

Above code, Had sum two value per pages
SAL_SUM_PAGE and DEB_TAXMONEY_PAGE are textbox which show summation.

These summation had correct all.
But after printed values(summation) had incorrect

Sometime, values(summation) were negative value, were 0 ( after printed)

I used to already changed my the printer (used Canon Inkjet,Epson Inkjet,HP Laser ....)
but It had problem too.

I used Winxp Pro sp1a and Access XP sp2 thai

Help me please...

Thank you very much...