Crear Pdf con pulsar un botón

[[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

[Angel.Matilla]

Yo uso este código con Builder 5 y QuickReport 3:

TQRPDFDocumentFilter *filtro = new TQRPDFDocumentFilter(cInforme);
filtro->AddFontMap("Arial:Helvetica");
filtro->StartConcat();
Informe->ExportToFilter(filtro);
filtro->EndConcat();
delete filtro;

Informe es el QuickReport que quieres exportar y cInforme el fichero donde se guardará. Te harán falta qrpdffilt.hpp y QRExport.hpp. SI no los tienes, dímelo y te paso todo el parche.

[[ElDioni]]

Hola,

conforme lo que te dice Caral de una impresora virtual en PDF (yo utilizo DoPdf) podrías utilizar el siguiente código.

Código Delphi [-]
procedure TForm1.Imprimir();
var
impresora:string;
begin
impresora:=rpdev.Device; //guardas la impresora que esté seleccionada por defecto
rpdev.SelectPrinter('doPDF v7',true); //Seleccionas la impresora donde quieres imprimir.
//aquí codigo para mandar a imprimir con QReport que no se cual es
rpdev.SelectPrinter(impresora,true); //vuelves a seleccionar la impresora por defecto.
end;

Saludos.