How to send a report to printer and save as pdf with no print Dialog

jrodimon

I need to send a report to a printer and to save a copy as pdf to the fileserver. I have used two different options and neither does exactly what i want. Here they are:

1.
FPDFDevice := TppPDFDevice.Create(nil);
FPDFDevice.Publisher := ppReportCombined.Publisher;
FPDFDevice.FileName := fEstablishment + '.PDF';
ppReportCombined.Print;
//this fails because I have not used a print dialog
FPDFDevice.PageRequest :=TppPageRequest(ppReportCombined.PrintDialog.PageRequest);

this saves the file to the share and it looks great, but i get no printed ite

2. ppReportCombined.DeviceType := 'Printer';
ppReportCombined.ShowPrintDialog := false;
FDevice := TppDevice.Create(self);
FDevice.Publisher := ppReportCombined.Publisher;
FDevice.OnPageReceive := ehDevicePageReceive;
ppReportCombined.AllowPrintToFile := true;
ppReportCombined.Print;
FDevice.Free;

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

lPage := TppPage(aPage);

lFileDevice := TppPDFDevice.Create(self);

try

lFileDevice.FileName := fEstablishment +'.pdf';
lFileDevice.StartJob;
lFileDevice.ReceivePage(lPage);
lFileDevice.EndJob;

finally
lFileDevice.Free;

end;

end;

this prints perfectly but saves only the second page of my report.


Help?

thanks

Jim

nicocizik

Hi Jim,

We only have resources to provide tech support to Delphi developers with an active ReportBuilder license. If you meet these requirements, please send license details to support@.

srodimon

I resolved this issue