لحساب عدد السجلات في كل صفحة اعمل مربع نص في صفحة التقرير ..قم بتسميته مثلا txtPageCount
اجعل التنسيق له قياسي Format=standard
ثم قم بنسخ الاكواد التالية :
Option Compare Database
Option Explicit
Public intPageCount As Integer
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
intPageCount = intPageCount + 1
End Sub
Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
txtPageCount = intPageCount
intPageCount = 0
End Sub
Private Sub Report_Open(Cancel As Integer)
intPageCount = 0
End Sub