Guardar QuickReport en PDF

[Dclase]

Hola a todos.


Quisiera saber si es posible, o si alguien sabe como guardar un reporte de QuickReport en formato PDF, directamente desde un boton, es decir, sin tener que abrir el reporte y darle al icono del diskete para salvar y alla que elegir el formato. :confused:

[marcoszorrilla]

Tomado del ejemplo que trae QuickRepor:

// The following code show how to explicitly call an export
// filter without going through the preview
procedure TfrmQR3Demo.btnExportClick(Sender: TObject);
begin
btnExport.Enabled := False;
with SaveDialog1 do
begin
if Execute then
begin
frmFormLetter.QuickRep1.ExportToFilter(TQRCommaSeparatedFilter.Create(FileName));
{
Other filters:
HTML: TQRHTMLDocumentFilter
ASCII: TQRAsciiExportFilter
CSV: TQRCommaSeparatedFilter

In Professional Version:
RTF: TQRRTFExportFilter
WMF: TQRWMFExportFilter
Excel: TQRXLSFilter
}
end;
end;
btnExport.Enabled := True;
end;

Un Saludo.

[MartinS]

Hola:

Yo hago lo siguiente: suponiendo que tu Tquickrep se llame conjunto cuando quieres tener una vista preliminar haces

Conjunto.Preview;

Para imprimir directamente haces

Conjunto.Print;

y para lo que tu consulta debes hacer:

Unit QRPDFFilt;
...

Procedure TPGenInfoInstit.EmitirInforme
Begin
SaveDialog1.FileName := ConsInt.FieldByName('Apellidos').AsString+', '+
ConsInt.FieldByName('Nombres').AsString+'.pdf';
SaveDialog1.Execute();
Conjunto.ExportToFilter(TQRPDFDocumentFilter.Create(SaveDialog1.FileName+'.pdf') );
end;

Saludos

[Neeruu]

La exportación a PDF de QuickReport es una forma sencilla de conseguir un pdf de nuestro reporte pero la calidad obtenida no era de mi agrado...

Yo empece utilizando la exportación a pdf del quickreport pero luego termine cambiando todo, haciendo que cuando el usuario elija exportar a pdf se imprima en una impresora pdf y guardando el archivo....

La Impresora que utilizo se llama PDF995...
http://www.pdf995.com/

[rufo]

Excelente ya lo probe y me sirvio gracias.

[nicolasjavier]

Hola:

Yo hago lo siguiente: suponiendo que tu Tquickrep se llame conjunto cuando quieres tener una vista preliminar haces

Código Delphi [-] (http://www.clubdelphi.com/foros/#)Conjunto.Preview;


Para imprimir directamente haces

Código Delphi [-] (http://www.clubdelphi.com/foros/#)Conjunto.Print;


y para lo que tu consulta debes hacer:

Código Delphi [-] (http://www.clubdelphi.com/foros/#)Unit QRPDFFilt; ... Procedure TPGenInfoInstit.EmitirInforme Begin SaveDialog1.FileName := ConsInt.FieldByName('Apellidos').AsString+', '+ ConsInt.FieldByName('Nombres').AsString+'.pdf'; SaveDialog1.Execute(); Conjunto.ExportToFilter(TQRPDFDocumentFilter.Create(SaveDialog1.FileName+'.pdf') ); end;


Saludos



Cual es esa unit?????? No encuentro para poner ese componente

[MartinS]

Cual es esa unit?????? No encuentro para poner ese componente

Hola, la unidad es QRPDFFilt. La version de Qreport que estoy utilizando es la 5.05.-

Saludos

[PabloTech]

Hola:

Yo hago lo siguiente: suponiendo que tu Tquickrep se llame conjunto cuando quieres tener una vista preliminar haces

Conjunto.Preview;

Para imprimir directamente haces

Conjunto.Print;

y para lo que tu consulta debes hacer:

Unit QRPDFFilt;
...

Procedure TPGenInfoInstit.EmitirInforme
Begin
SaveDialog1.FileName := ConsInt.FieldByName('Apellidos').AsString+', '+
ConsInt.FieldByName('Nombres').AsString+'.pdf';
SaveDialog1.Execute();
Conjunto.ExportToFilter(TQRPDFDocumentFilter.Create(SaveDialog1.FileName+'.pdf') );
end;

Saludos

Anduvo Perfecto... Gracias