[Casimiro Notevi]

Más o menos es algo así:

 ppInformes.ShowPrintDialog := true;
 ppInformes.PrinterSetup.Copies := 1;
 ppInformes.AllowPrintToArchive := true;
 ppInformes.DeviceType := 'PDFfile';
 ppInformes.TextFileName := ExtractFilePath(ParamStr(0)) +'\informe.pdf';
 ppInformes.Print;