Quiero guardarlo en formato PDF
.... lo cual hasta el momento me funciona muy bien.... (Estoy traspasando un Informe de QReport a PDF.... y todo bien...)
El código que utilizo es el siguiente
Código:
procedure TOrdenes.Generar_PDF;
Var
aPDFFilt : TQRPDFDocumentFilter;
Nom : String;
begin
Filtra_Orden;
Guarda_Pdf.Title := 'Orden de Compra - Club Deportivo Huachipato';
Guarda_Pdf.FileName := Concat(IntToStr(IBQ_Select['Ord_Numero']),'.pdf');
If Guarda_Pdf.Execute Then
Begin
ChDir(ExtractFilePath(Guarda_Pdf.Filename));
Nom := Guarda_Pdf.FileName;
aPDFFilt := TQRPDFDocumentFilter.Create(Nom);
With TOrdenes.Create(Application) Do
Try
Imprime_Orden.QuickRep1.ExportToFilter( aPDFFilt);
Except
ShowMessage('Error al crear el archivo');
Raise;
End;
aPDFFilt.Free;
End
end;
mi consulta es saber como guardo el archivo sin utilizar el SaveDialog....
Además, otra consulta, como puedo hacer para verificar si el Archivo ya Existe ?... para que no lo sobreescriba.... y se evite un paso....
