mORMot Open Source

MarwanAlmukh

Member

Registered: 2023-06-27

Posts: 2

Quick Report To PDF supporting Arabic Fonts

I have a quick report in delphi 11 which almost fonts are Arabic font, How can i export it to PDF. I try to use this but no success:
uses
  SynPDF;

// ...

var
  PDF: TPDFDocument;
  PDFCanvas: TPdfCanvas;
  i: Integer;
begin
  PDF := TPDFDocument.Create;
  try
    PDFCanvas := PDF.Canvas;
    PDFCanvas.SetSize(bitmap.Width, bitmap.Height);

    for i := 0 to FormCertify3.QuickRep2.QRPrinter.PageCount - 1 do
    begin
      PDFCanvas.DrawFormXObject(FormCertify3.QuickRep2.QRPrinter.GetPage(i + 1), 0, i * FormCertify3.QuickRep2.Height);
      if i < FormCertify3.QuickRep2.QRPrinter.PageCount - 1 then
        PDFCanvas.NextPage;
    end;

    PDF.SaveToFile('e:\EmailReport.pdf');
  finally
    PDF.Free;
  end;
end;

Last edited by MarwanAlmukh (2023-06-27 05:42:54)

igors233

Member

Registered: 2012-09-10

Posts: 234

Re: Quick Report To PDF supporting Arabic Fonts

Can you get page in QR as Metafile (or EMF), if you can try to insert those with Canvas.RenderMetaFile.

MarwanAlmukh

Member

Registered: 2023-06-27

Posts: 2

Re: Quick Report To PDF supporting Arabic Fonts

Can you get page in QR as Metafile (or EMF), if you can try to insert those with Canvas.RenderMetaFile.

I can't, i need only to export my quick report to pdf, with Arabic Fonts support;