Buyrun, Sizin örneğinizi istediğiniz şekilde düzelttim.
Kod:
Dim SayfaTop_Tutar, SayfaTop_Euro
Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
SayfaTop_Tutar = SayfaTop_Tutar + Me.Tutar
SayfaTop_Euro = SayfaTop_Euro + Me.Euro
End Sub
Private Sub Report_Open(Cancel As Integer)
SayfaTop_Tutar = 0
SayfaTop_Euro = 0
End Sub
Private Sub SayfaAltbilgisiBölümü_Print(Cancel As Integer, PrintCount As Integer)
Me.Sayfa_Tutar = SayfaTop_Tutar
Me.Sayfa_Euro = SayfaTop_Euro
End Sub
Private Sub SayfaÜstbilgisiBölümü_Print(Cancel As Integer, PrintCount As Integer)
Me.Onceki_Tutar = SayfaTop_Tutar
Me.Onceki_Euro = SayfaTop_Euro
SayfaTop_Tutar = 0
SayfaTop_Euro = 0
End Sub