PDA

View Full Version : چاپ یک image به طولی بیشتر از A4



free
چهارشنبه 02 آبان 1386, 11:56 صبح
سلام. این سوال را از بخش گزارشگیری هم پرسیدم متاسفانه کسی پاسخی نداد. مشکله من اینه:
یک سری رکورد تو بانک ذخیره کردم که هر کدام شامل یک عکس هستند که با فرمت jpg ذخیره شده اند. هر عکس مجموعه ایی از چند برگ A4 است که پشت سر هم قرار گرفته اند و در پایان به یک عکس تبدیل شده و در بانک ذخیره شده است. حال می خواهم با کلیک روی هر رکورد در dbgrid عکس مربوطه را چاپ کند. در quickreport در باند detile یک qrimage قرار دادم اما عکس بصورت کامل نمایش داده نمی شود. از Qrdbimage هم استفاده کردم که مستقیما از بانک عکس را بخواند اما گمان می کنم که فقط bmp قبول می کنه در حالی که فرمت ذخیره شده در بانک jpg است. از دوستان خواهش می کنم که اگه راه حلی به نظرش میرسه کمکم کنه. آیا form.print می تونه این کار را بکنه؟؟
از لطفتون ممنون.

SYNDROME
چهارشنبه 02 آبان 1386, 20:08 عصر
من از روش فوق برای چاپ استفاده می کنم.
ببین کارتون رو راه می اندازد.
یونیت Printers را نیز اضافه کنید.


Var
Bitmap : TBitmap;
Rec : TRect;
Begin
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile(FileName);
Rec := Rect(ALeft,ATop,ARight,ABottom);
Printer.Orientation := Orientation;
Printer.BeginDoc;
Printer.Canvas.StretchDraw(Rec,Bitmap);
Printer.EndDoc;
End;


موفق باشید

free
پنج شنبه 03 آبان 1386, 07:52 صبح
ممنون که جواب دادید.
دستوراتی که نوشتین یک فایل bmp را به چاپ میرساند؟؟ یعنی فایل jpg را از بانک بخوانم به bmp تبدیل کنم بعد این دستورات را استفاده کنم؟

ali_abbasi22145
پنج شنبه 03 آبان 1386, 09:45 صبح
سلام
از REPORTBUILDER استفاده کن و uses ppjpeg فرامش نشود مشکلت حل می شود.