Kur@l Hocam teşekkür ederim. Dediğinizi yaptım. Baskı ön izlemede toplamları ihtiyaç için 141 fazla için 13 buldu ki bunlar doğru toplamlardı. Ancak çıktı alırken bu sayıların iki katını yazdı. yani 282 ve 26. ben de formülü aşağıda ii ve ff değerlerinin sonuna '/2' ekleyerek değiştirdim ve oldu. Yaptığım değişiklik her durumda geçerli olur mu acaba onu merak ettim.

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 / 2

Me.j = ii / 2

End Sub 

Private Sub Report_Open(Cancel As Integer) 

DoCmd.Maximize 

End Sub