Hallo,
Mann muss dafür ppGlobalPDFPrinter initialisieren und
BeginDoc/EndDoc aufrufen
procedure TForm1.StartPDFFile(Sender: TObject);
begin
WPPDFPrinter1.FileName := 'c:\allout.pdf';
WPPDFPrinter1.AutoLaunch := TRUE;
WPPDFPrinter1.BeginDoc;
ppGlobalPDFPrinter := WPPDFPrinter1;
end;
procedure TForm1.ClosePDFFile(Sender: TObject);
begin
WPPDFPrinter1.EndDoc;
end;
Siehe auch diesen code aus dem manual:
How to create a PDF file without display of a file save dialog?
uses wppdfRBDev, WPPDFR1, WPPDFR2;
var pdf : TppwPDFDevice;
begin
pdf := TppwPDFDevice.Create(Self);
pdf.Filename := 'c:\rb.pdf';
pdf.PDFPrinter.FontMode := wpUseTrueTypeFonts;
pdf.Publisher := some_Report.Publisher;
Report.PrintToDevices;
pdf.Free;
end
Note: some_Report is an instance of a RB report object.
Man kann also ohne anzeige drucken.