subtotales en informes acces

[alexinho]

Amigos tengo un pequeño problema, tengo un informe en acces el cual me saca totales parciales y generales, pero cuando mando a imprimir la primera pagina de los totales parciales me generan en 0, en cambio los generales se mantienen, estos totales parciales estan programados en VB. como sigue el codigo:
Option Compare Database

Dim a As Double
Dim b As Double
Dim c As Double
Dim d As Double
Dim e As Double
Private Sub EncabezadoDelInforme_Print(Cancel As Integer, PrintCount As Integer)
a = 0
b = 0
c = 0
d = 0
e = 0
End Sub

Private Sub SecciónPieDePágina_Print(Cancel As Integer, PrintCount As Integer)
Me!ParTotal = Me!SumaTotal - a
a = Me!SumaTotal
Me!ParIce = Me!SumaIce - b
b = Me!SumaIce
Me!ParExen = Me!SumaExen - c
c = Me!SumaExen
Me!ParNeto = Me!SumaNeto - d
d = Me!SumaNeto
Me!ParCredito = Me!SumaCredito - e
e = Me!SumaCredito
End Sub
Espero me puedan ayudar a que la primera pagina mantenga los totales parciales en el momento de la impresion.
Gracias.