Crear Pdf con pulsar un botón

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

[[ElKurgan]]

Ya se que no viene a cuento, ya que lo gratis es lo que buscamos todos. Pero el Quick Report, por pocos euros/dolares (si lo registras), además de proporcionarte los fuentes, te proporciona también un montón de units de exportación, entre las que se ecuentra la exportación a PDF.

Un saludo

[Cabanyaler]

Empezado por ElKurgan

Ya se que no viene a cuento, ya que lo gratis es lo que buscamos todos. Pero el Quick Report, por pocos euros/dolares (si lo registras), además de proporcionarte los fuentes, te proporciona también un montón de units de exportación, entre las que se ecuentra la exportación a PDF.

Un saludo

En diners torrons!!! diuen al meu poble Con dinero, turrones!!! dicen en mi pueblo.

Bueno hoy no he podido trabajar mucho, pero lo poco que he hecho es alrededor de lo que me indica Caral.
Hasta ahora ya he capturado la impresora por defecto y asignado el PDFCreator en el momento de la creación del pdf para después volver a reponer la impresora por defecto tal como estaba.
Estoy ahora en como configurar el PDFCreator con lenguaje Delphi para ponerlo con Autosalvado a directorio automáticamente en formato pdf y asignándole nombre al fichero desde programa.

Tan pronto lo tenga, lo publicaré con todo lujo de detalles y explicado, para como siempre este hilo sea:
inicio: problema,
desarrollo: evolución + estudio,
y por último
resolución: código que soluciona el problema inicial.