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.

[marcoszorrilla]

Tomado del ejemplo que trae QuickRepor:

Código Delphi [-]
// 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

Código Delphi [-]
Conjunto.Preview;

Para imprimir directamente haces

Código Delphi [-]
Conjunto.Print;

y para lo que tu consulta debes hacer:

Código Delphi [-]
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]

Empezado por MartinS

Hola:

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

Código Delphi [-]Conjunto.Preview;


Para imprimir directamente haces

Código Delphi [-]Conjunto.Print;


y para lo que tu consulta debes hacer:

Código Delphi [-]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]

Empezado por nicolasjavier

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]

Empezado por MartinS

Hola:

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

Código Delphi [-]
Conjunto.Preview;

Para imprimir directamente haces

Código Delphi [-]
Conjunto.Print;

y para lo que tu consulta debes hacer:

Código Delphi [-]
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