Más o menos es algo así:
Código:
ppInformes.ShowPrintDialog := true;
ppInformes.PrinterSetup.Copies := 1;
ppInformes.AllowPrintToArchive := true;
ppInformes.DeviceType := 'PDFfile';
ppInformes.TextFileName := ExtractFilePath(ParamStr(0)) +'\informe.pdf';
ppInformes.Print;