delphi4arab منتديات دلفي للعرب - كيف تحويل محتوى quickreport الى pdf

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

(09-05-2016, 11:35 AM)medreg كتب : [ -> ]السلام عليكم ورحمة الله تعالى وبركاته
كيف يمكنني تحويل محتوى الكويكروبورت بما فيه من جداول وفقرات
الى ملف pdf
وبارك الله فيكم

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

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

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

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

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

(09-05-2016, 10:09 PM)medreg كتب : [ -> ]بارك الله فيك أخي وليد
لكن انا استعمل المكون
وليس المكون 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;

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

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

[/quote]

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