aşağıdaki kodu raporunuzun kod sayfasına yapıştırın. Mevcut olanla bunu değiştirin.
Yazıcıdan çıktı alırken toplayacaktır.
Kolay Gelsin.
Option Compare Database
Public ii, ff As Integer
private Sub Ayrıntı_Paint()
End Sub
Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
ii = ii + Val(Me.f)
ff = ff + Val(Me.g)
Me.k = ff
Me.j = ii
End Sub
Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
End Sub