Crear Pdf con pulsar un botón

[Cabanyaler]

He seguido (creo) todos y cada uno de los hilos relacionados en el foro con el tema de creación de archivos pdf de manera transparente al usuario.
Veo que algunos son del 2004 y de esa antigüedad.
La verdad es que he visto el PDFCreator, pero este trabaja desde un fichero precreado que crea despues el pdf y desde una llamada tipo prompt.
He leido también que existen componentes de pago, pero no es ese el caso.
He probado también con la configuración de Adobe Acrobat 9 Standard, consiguiendo imprimir a un directorio por defecto siempre, con una sóla ventana de muestra del progreso, pero no acierto a darle nombre al fichero pdf que me crea y me lo guarda con el nombre ".pdf", además de dejarme una ventana molestamente abierta con una barra de progreso que nunca acaba de completarse a pesar de que la operación termina.

¿Alguien me puede ayudar y decirme como puedo imprimir a pdf dándole nombre al fichero y ruta de destino desde programa de manera que el usuario pulse un botón, vea una barra de progreso y punto?.
Un ejemplo, una configuración, un componente gratis milagroso, algo.
En fin, gracias por vuestra ayuda.

[[ElDioni]]

Hola, no se con que trabajas, con rave report se puede hacer lo que pretendes, es gratis, te deja introducir la ruta, el nombre y todo lo que pides, no se si te trastoca mucho los planes, ya me contarás.

Saludos.

[Cabanyaler]

Empezado por ElDioni

Hola, no se con que trabajas, con rave report se puede hacer lo que pretendes, es gratis, te deja introducir la ruta, el nombre y todo lo que pides, no se si te trastoca mucho los planes, ya me contarás.

Saludos.

Si gracias Dioni, trabajo y lo tengo todo hecho con QReport.
Pero lo hago a escapre y sobre marmol si es así como se puede hacer.
¿Lo debo pasar a Rave Report? ¿Que se instala en las palateas de los componetes de Delphi?.
Gracias.

[[Caral]]

Hola
Se puede usar PDFCreator que lo que hace es hacer una impresora virtual.
Una vez que la instalas tienes dos opciones:
1- Antes de imprimir el reporte buscar esta impresora (en el previw) e imprimir.
2- Hacer que el programa busque la impresora, imprima y coloque la que tenia otra vez.
Saludos

[Cabanyaler]

Empezado por Caral

Hola
Se puede usar PDFCreator que lo que hace es hacer una impresora virtual.
Una vez que la instalas tienes dos opciones:
1- Antes de imprimir el reporte buscar esta impresora (en el previw) e imprimir.
2- Hacer que el programa busque la impresora, imprima y coloque la que tenia otra vez.
Saludos

Si pero tengo entendido que es a partir de un fichero ya creado en cualquier formato como por ejemplo .doc, .xls., ..... y yo no tengo aún el fichero si no que es el reporte del QuickReport.

Ahora ya me marcho a mi casa a jugar con mi niño que no lo he visto desde las 8:00 AM, mañana seguiré perdiendo el tiempo trabajando.
Iré por la línea de investigación del Rave Report que me indicó el compañero Dioni, a ver que saco. Con lo que tenga lo publico como siempre.

[[Caral]]

Hola
Imprime directamente del QReport.
Aqui esta el link del PDFCreator, instalalo y lo veras, es muy sencillo.
Saludos

[Cabanyaler]

Uff, bueno estoy con esto y no me crea los pdf en el directorio que deseo.
Creo que el fallo estriba en mi desconocimiento alrededor de los comando del OLEObjeto creado para el PDFCreator.

¿Me podrías, quien controle, revisar a ver si me olvido de algo?.
Gracias.

Código Delphi [-]
procedure TFPrincipal.BitBtnPDFClick(Sender: TObject);
var
    Index: Integer;
    NombreImpresora   : string;
    NombrePDF : string;
begin
    // Pille l'impresora
    NombreImpresora   :=  'PDFCreator';
    Index := Printer.Printers.IndexOf(NombreImpresora);
    Printer.PrinterIndex := Index;
    //

    NombrePDF       := 'L:\JOSE\temp\'+ Cod_Cen_w + '_' + EditNumPedido.Text + '.pdf';
    PDFCreator := CreateOLEOBject('PDFCreator.clsPDFCreator');
    PDFCreator.cStart('/NoProcessingAtStartup');               
    StorePDFOptions();                                         
    SetPDFOptions(NombrePDF);            

    // ****
    // Imprimeix del QuickReport, obvio esta parte del código referente sólo al QuickReport
    . . . . 
    . . . . 
    // ****        
   
    RestorePDFOptions;                     // Restableisc els anteriors valors per a les opcions
    VarClear(PDFCreator);                  // Netetje la memoria del objecte PDFCreator
end;


procedure TFPrincipal.SetPDFOptions(const filename: String);
begin
   PDFCreator.cOption('UseAutosave')          := 1;
   PDFCreator.cOption('UseAutosaveDirectory') := 1;
   PDFCreator.cOption('AutosaveDirectory')    := ExtractFilePath(filename);
   PDFCreator.cOption('AutosaveFilename')     := ExtractFileName(filename);
   PDFCreator.cOption('AutosaveFormat')       := 0; // PDF format
   PDFCreator.cOption('PDFColorsColorModel')  := 0; // RGB format
   PDFCreator.cSaveOptions;
end;


procedure TFPrincipal.StorePDFOptions;
begin
   optUseAutosave :=                     PDFCreator.cOption['UseAutosave'];
   optUseAutosaveDirectory :=            PDFCreator.cOption['UseAutosaveDirectory'];
   optAutosaveDirectory :=               PDFCreator.cOption['AutosaveDirectory'];
   optAutosaveFilename :=                PDFCreator.cOption['AutosaveFilename'];
   optAutosaveFormat :=                  PDFCreator.cOption['AutosaveFormat'];
   optPDFColorsColorModel :=             PDFCreator.cOption['PDFColorsColorModel'];
end;


procedure TFPrincipal.RestorePDFOptions;
begin
   PDFCreator.cOption('UseAutosave')            := optUseAutosave;
   PDFCreator.cOption('UseAutosaveDirectory')   := optUseAutosaveDirectory;
   PDFCreator.cOption('AutosaveDirectory')      := optAutosaveDirectory;
   PDFCreator.cOption('AutosaveFilename')       := optAutosaveFilename;
   PDFCreator.cOption('AutosaveFormat')         := optAutosaveFormat;
   PDFCreator.cOption('PDFColorsColorModel')    := optPDFColorsColorModel;
   PDFCreator.cSaveOptions;
end;

Gracias.

[Cabanyaler]

Estoy encontrando código, aunque en VB, que trata este mismo tema y veo que intercalan líneas de código en algunos puntos que hacen sleep al sistema.
¿Será que debo esperar un determinado tiempo antes de hacer algo y después de hacer algún paso?.
Por ejemplo encuentro que después de limpiar caches, capturar impresora,.....
Lo he probado, pero aún así no me imprime, ni crea pdf alguno.
Si me funciona si establezco los controles desde las opciones de menú del PDFCreator (aunque no le puedo dar el nombre de fichero deseado, ya que me pone la fecha como nombre con un formato de yyyymmddhhmmss.pdf), pero establecerlas desde código, sigo igual de atascado.

[roman]

A mi tu código me funciona bien si quito la línea:

Código Delphi [-]
PDFCreator.cStart('/NoProcessingAtStartup');

que, según la documentación, lo que hace es precisamente impedir que se procesen los documentos:

No processing at startup: When you use this setting, PDFCreator will start without processing any documents. You can manually start processing by going to the Document menu and selecting Print or by unchecking the Printer Stop option in the Printer menu. The setting is useful if you want collect some files first, then combine the files into one and create a pdf.

En caso de que esa línea esté presente, entonces puedes iniciar la impresión con

Código Delphi [-]
PdfCreator.cPrinterStop := false;

// Saludos

[Cabanyaler]

Empezado por roman

A mi tu código me funciona bien si quito la línea:

Código Delphi [-]
PDFCreator.cStart('/NoProcessingAtStartup');

que, según la documentación, lo que hace es precisamente impedir que se procesen los documentos:



En caso de que esa línea esté presente, entonces puedes iniciar la impresión con

Código Delphi [-]
PdfCreator.cPrinterStop := false;

// Saludos

Ufff, hola he estado de viaje todo el día, pero mañana es lo primero que hago al llegar al despacho. A ver si va a ser eso de no acabar de entender el inglés del todo.....
Gracias Roman.

[Cabanyaler]

Desgraciadamente no lo había entendido mal.
Lo que proporciona la ejecución de la instrucción:

Código Delphi [-]
PDFCreator.cStart('/NoProcessingAtStartup');

es la NO ejecución del PDFCreator mostrando la ventana para la introducción de datos del propio programa, lo cual es lo que intentamos evitar.
Intentamos o intento precisamente hacer esa configuración desde código sin mostrar ventana alguna.
Aún así gracias Roman.