delphi4arab منتديات دلفي للعرب

سلام عليكم

عندما اقوم بطابعة مستند في هذا  البروسيجدر يقوم البرنامج بطباعة مستندين بدل مستند واحد لم اعرف الخطا من اين عندما اضفت الجملة التاليه ظهرت المشكلة

                                                                                                                                       
                                                                                                                            CheckBox1.Checked:=false;
                                                                                                                                                                                                                                                               بينما عندما اضف  الامر التالي لاتوجد مشكلة                         //CheckBox1.Enabled:=FALSE;  
         
                                                                                                                                       

وانا اريد استخدم الامر الاول  CheckBox1.Checked:=false; ولكن الطباعة اريد مستند واحد فقط      

procedure TForm23.CheckBox1Click(Sender: TObject);
begin
 IF CheckBox1.Checked=true THEN                                                                                                                                                                                                          
begin
Form2.Table1.Open;
Form2.Table2.Open;
end;
if form2.Table1.FindKey([edit1.text]) then
begin
x1:=Form2.Table1NET_SALRY1.AsFloat;
ChifrToArab(x1,s);
Form2.QRLabel53.Caption:=s;
//CheckBox1.Enabled:=FALSE;
CheckBox1.Checked:=false;
FORM2.QuickRep1.print;
end;

END;

قم يتنسيق الكود ليسهل للمستخدمين مراجعته والاجابة عنه
لا اعرف آلية عمل هذا النوع من التقارير كما هناك شئ غير منطقي في اظهار نموذجين