تكرار مستند في الطباعة

[سليم 2024]

سلام عليكم

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

                                                                                                                                       
                                                                                                                            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;

[الفجر الابيض]

كود :

                                                                                                                                      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.Checked:=false; FORM2.QuickRep1.print; end; END;

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