كيف يمكنني طباعة تفرير على نموذج سجلاته محدودة

[medreg]

السلام عليكم ورحمة الله تعالى وبركاته
رمضان كريم

طباعة نموزج خاص
لدي وثيقة تحتوي على 15 سطر أو سجل ولا يمكن تجاوز عدد السجلات الموجدة بها
وإن كانت السجلات أقل من 15 سجل فيجب أن تظهر السطور الباقية في الوثيقة إلا أنها تكون فارغة
1- كيف يمكنني تحديد عدد السجلات في كل صفحة
2- كيف يمكنني أن أطبع السجلات على الورقة ولنفرض أن عدد السجلات أقل من 15 سطر أو سجل على أن تظهر السطور الباقية فارغة
لقد اعطاني احد الأصدقاء كود وهو موجود بالمرفق لكن لم يعطي النتيجة المطلوبة
وجزاكم الله عنا كل خير

نسأل الله العلي القدير ان يوفقنا واياكم لصيامه وقيامه على احسن وجه
وان يتقبل منا ومنكم الصيام والقيام

[medreg]

لاحول ولاقوة الا الله
اين انتم يا مبرمجين
الا من يرد

[نبيلْ]

واش بيك محبوش يعاونوك خلاص

[diali]

السلام عليكم
إذا أردت أن تطبع بسطر واحد أكتب مايلي:
procedure TForm1.Button1Click(Sender: TObject);
begin
table1.open;
table1.filter:='code='+edit1.text;
table1.filtered:=true;
QuickRep1.Preview;
end;
أما إذا أردت أتطبع السجل املا أكتب مايلي:
procedure TForm1.Button1Click(Sender: TObject);
begin
table1.open;
QuickRep1.Preview;
end;