+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يتم تغيير هوامش الطباعة برمجيا بحيث تختلف من سجل لأخر (/showthread.php?tid=1264)
كيف يتم تغيير هوامش الطباعة برمجيا بحيث تختلف من سجل لأخر - medreg - 13-10-2009
السلام عليكم ورحمة الله تعالى وبركاته
لقد وضعت هذا الكود لتغيير هوامش ورقة الطباعة
على تختلف من سجل لأخر
يعني السجل الأول يكون هوامش ورقة طباعته كما يلي
يمين = 1.50 سم
يسار = 1.00 سم
والسجل الثاني
يمين = 3.00 سم
يسار = 1.00 سم
والسجل الثالث
يمين 1.50 سم
يسار = 2.00 سم
وهكذا إى أن أنهي من عدد السجلات
ها هو الكود الذي استعملته لكن يأخذ القيمة الأولى فقط
إذا كان هناك خطأ في الكود افيدونا حفظكم الله
PHP كود :
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;
كيف يتم تغيير هوامش الطباعة برمجيا بحيث تختلف من سجل لأخر - محمد عبد العزيز - 22-10-2009
قيمة الهامش فرضا ثابتة
غير طريقة تفكيرك،
بدلا من الهامش غير ما ياتي بعد الهامش
اي ما يتم طباعته
وبالتوفيق
كيف يتم تغيير هوامش الطباعة برمجيا بحيث تختلف من سجل لأخر - medreg - 23-10-2009
شكرًا جزيلاً فعلا لقد تم ذلك وغيرت الطريقة
ولكن افهم من كلامك انه مسحيل تغيير الهوامش
بسبب ثبوتها فرضًا
وعلى كل حال اشكرك من كل قلبي وجزاكم الله عنا خير الجزاء