Is there any way to save each page of a report as a single file?

aza

I am using Report Builder 19.04 and Delphi XE7

I want to save each page of the report as a single file.
Is there anyway to realise it?
Now I control the dataset to create a report for each record and save it.
I wonder maybe some smarter method can do this job.

Thanks for your help.

Yong

nicocizik

Hi Yong,

Take a look at the following article on how to export each page in a report as a separate file. The example uses the PDF device but this method will work for any export option.

http://rbwiki.digital-metaphors.com/output/pdf/how-to-send-each-page-as-a-pdf/

aza

Hi, Nico

It is vey kind of you for your information. Now I can export each page of my report to a PDF file.
But asian characters(UNICODE) in report is garbled by this way. Would you mind give me some hints on how to export UNICODE characters correctly?

Thank you in advance.

Yong

nicocizik

Hi Yong,

You need to be sure the PDFSettings.FontEncoding property is set to feUnicode. For the example, if you are setting this property in the report, I suggest assigning the Report.PDFSettings to the PDFDevice.PDFSettings.

procedure TForm1.ehDevicePageReceive(Sender, aPage: TObject);
var
  lPage: TppPage;
  lFileDevice: TppPDFDevice;
begin

  lPage := TppPage(aPage);

  lFileDevice := TppPDFDevice.Create(self);
  lFileDevice.PDFSettings.Assign(ppReport1.PDFSettings);

...

aza

Hi, Nico

It works perfectly .
Thank you very much!

Yong