[hsab]

(20-12-14, 05:36 PM)السلام عليكم ورحمة الله     يمكن تحديد عدد السجلات لكل صفحة في آكتيف ريبورت كما يلى كتب :

كود :

dim tb as integer

 

كود :

Private Sub Detail_Format()

if (tb Mod 10) =0 then
detail.NewPage = ddNPAfter
else
detail.NewPage = ddNPNone
end if

tb = tb + 1
end sub

كود :

private Sub ActiveReport_ReportStart()
tb = 1
end sub