13-10-2009, 07:58 AM
السلام عليكم ورحمة الله تعالى وبركاته
لقد وضعت هذا الكود لتغيير هوامش ورقة الطباعة
على تختلف من سجل لأخر
يعني السجل الأول يكون هوامش ورقة طباعته كما يلي
يمين = 1.50 سم
يسار = 1.00 سم
والسجل الثاني
يمين = 3.00 سم
يسار = 1.00 سم
والسجل الثالث
يمين 1.50 سم
يسار = 2.00 سم
وهكذا إى أن أنهي من عدد السجلات
ها هو الكود الذي استعملته لكن يأخذ القيمة الأولى فقط
إذا كان هناك خطأ في الكود افيدونا حفظكم الله
لقد وضعت هذا الكود لتغيير هوامش ورقة الطباعة
على تختلف من سجل لأخر
يعني السجل الأول يكون هوامش ورقة طباعته كما يلي
يمين = 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;
