Print to file, only one page

mesnews

Hello,

I want to print only one page in a file, without dialog.
So, I try :

ppReport1.AllowPrintToFile := True;
ppReport1.ShowPrintDialog := false;
ppReport1.DeviceType := 'PDF';
ppReport1.Print;

but how can I specify I want only the first page ?

nicocizik

Hi Arnaud,

Take a look at demo 124 of the main reports demo for an example of manually sending ReportBuilder a list of pages to be printed. This is the same method used for the Page Range of the Printer Dialog.

It uses the ppTextToPageList routine to resolve the page range entry. Something like the following…

procedure TForm1.ppReportBeforePrint(Sender: TObject);
begin

  if (Report.PrinterDevice <> nil) then
    begin
      Report.PrinterDevice.PageSetting := psPageList;

      ppTextToPageList(‘1', Report.PrinterDevice.PageList, True);  //Print page 1
   end;

end;

mesnews

Hi Nico,

Thank you.