behnam_dr
دوشنبه 10 مرداد 1390, 20:07 عصر
سلام دوستان من برای ساخت شماره ردیف یک qrlabel داخل qrsubdetails به صفحه آوردم و یه متغیر به نام radif به صورت public تعریف کردم .و در رویدادهای مربوط به شکل زیر عمل کردم
procedure TForm23.QRLabel22Print(sender: TObject; var Value: string);
begin
Value:=currtostr(radif);
end;
procedure TForm23.QRSubDetail1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
radif:=radif+1;
end;
حالا مشکل اینه که توی سیستم گزارش که میگیرم هیچ مشکلی نیست و همه ش ردیف ها پشت سر هم اومده اما روی کاغذ چاپ شده از آخرین شماره ردیف به بعد چاپ میکنه . علت چیست؟ ضمنا با چاپگرهای مختلف تست گرفتم. (خواهش میکنم اگر کسی میدونه اعلام نظر کنه )
procedure TForm23.QRLabel22Print(sender: TObject; var Value: string);
begin
Value:=currtostr(radif);
end;
procedure TForm23.QRSubDetail1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
radif:=radif+1;
end;
حالا مشکل اینه که توی سیستم گزارش که میگیرم هیچ مشکلی نیست و همه ش ردیف ها پشت سر هم اومده اما روی کاغذ چاپ شده از آخرین شماره ردیف به بعد چاپ میکنه . علت چیست؟ ضمنا با چاپگرهای مختلف تست گرفتم. (خواهش میکنم اگر کسی میدونه اعلام نظر کنه )