كيف تحويل محتوى quickreport الى pdf

[medreg]

السلام عليكم ورحمة الله تعالى وبركاته
كيف يمكنني تحويل محتوى الكويكروبورت بما فيه من جداول وفقرات
الى ملف pdf
وبارك الله فيكم

[wadoud]

السلام عليكم ورحمة الله تعالى وبركاته
كيف يمكنني تحويل محتوى الكويكروبورت بما فيه من جداول وفقرات
الى ملف pdf
وبارك الله فيكم

وعليكم السلام ورحمة الله , أخي الكريم فقط عليك إضافة  إلى الفورم  المكون frxPDFExport 
مثال:

كود :

frxReport1.PrepareReport; frxPDFExport1.FileName := 'c:\Users\Public\Desktop\test.pdf'; frxReport1.Export(frxPDFExport1); end;

كود :

بالتوفيق إنشاء الله.

---

معذرة أخي لقد تسرعت في الرد هذا خاص بالفاست ربورت.

[medreg]

بارك الله فيك أخي وليد
لكن انا استعمل المكون quickreport
وليس المكون fastReport

[wadoud]

بارك الله فيك أخي وليد
لكن انا استعمل المكون 
وليس المكون fastReport

جرب هذا انا لا أستعمل quickreport

كود :

procedure ReportExport(aReport: TQuickRep; const aFileName: TFileName); var Pdf: TPdfDocument;     aMeta: TMetaFile;     i: integer; begin  Pdf := TPdfDocument.Create;  try    aReport.Prepare;    for i := 1 to aReport.QRPrinter.PageCount do begin      aMeta := aReport.QRPrinter.GetPage(i);      try        Pdf.DefaultPageWidth := MulDiv(aMeta.Width,72,Pdf.ScreenLogPixels);        Pdf.DefaultPageHeight := MulDiv(aMeta.Height,72,Pdf.ScreenLogPixels);        Pdf.AddPage;        // draw the page content        Pdf.Canvas.RenderMetaFile(aMeta,1,0,0);      finally        aMeta.Free;      end;    end;    Pdf.SaveToFile(aFileName);  finally    Pdf.free;  end; end;

[medreg]

[quote pid='38665' dateline='1462829958']

كود :

بارك الله فيك اخي wadoud المشكلة انه لا يتعرف على المكون TPdfDocument اين اجد هذا المكون لقد حاولت تثبيت PowerPDF لم اتمكن من تثبيته ربما اجده فيه كيف يمكنني العثور عليه بارك الله فيكم   

[/quote]

---

بارك الله فيك اخي wadoud
المشكلة انه لا يتعرف على المكون TPdfDocument
اين اجد هذا المكون
لقد حاولت تثبيت PowerPDF
لم اتمكن من تثبيته ربما اجده فيه
كيف يمكنني العثور عليه
بارك الله فيكم