كيف يتم تغيير هوامش الطباعة برمجيا بحيث تختلف من سجل لأخر

[medreg]

السلام عليكم ورحمة الله تعالى وبركاته
لقد وضعت هذا الكود لتغيير هوامش ورقة الطباعة
على تختلف من سجل لأخر
يعني السجل الأول يكون هوامش ورقة طباعته كما يلي
يمين = 1.50 سم
يسار = 1.00 سم
والسجل الثاني
يمين = 3.00 سم
يسار = 1.00 سم
والسجل الثالث
يمين 1.50 سم
يسار = 2.00 سم
وهكذا إى أن أنهي من عدد السجلات
ها هو الكود الذي استعملته لكن يأخذ القيمة الأولى فقط
إذا كان هناك خطأ في الكود افيدونا حفظكم الله

procedure TForm2.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
with form1 do begin
table1.First;
while not table1.Eof do begin
table1.Edit;
If table1.FieldByName('Code').AsString='1' then
QuickRep1.Page.LeftMargin:=10;
QuickRep1.Page.RightMargin:=20;
If table1.FieldByName('Code').AsString='2' then
QuickRep1.Page.LeftMargin:=20;
QuickRep1.Page.RightMargin:=10;
table1.Post;
table1.Next;
end;
end;
end;

[B.M.AbdelAziZ]

قيمة الهامش فرضا ثابتة
غير طريقة تفكيرك،
بدلا من الهامش غير ما ياتي بعد الهامش
اي ما يتم طباعته
وبالتوفيق

[medreg]

شكرًا جزيلاً فعلا لقد تم ذلك وغيرت الطريقة
ولكن افهم من كلامك انه مسحيل تغيير الهوامش
بسبب ثبوتها فرضًا

وعلى كل حال اشكرك من كل قلبي وجزاكم الله عنا خير الجزاء