Crear Pdf con pulsar un botón

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