Foros Club Delphi - Guardar QuickReport en PDF

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)

- - Guardar QuickReport en PDF (https://www.clubdelphi.com/foros/showthread.php?t=78813)

Dclase

18-05-2012 18:49:31

Guardar QuickReport en PDF

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

18-05-2012 19:14:01

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

18-05-2012 22:29:35

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

19-05-2012 01:54:54

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	19-05-2012 01:55:35

Excelente ya lo probe y me sirvio gracias.

nicolasjavier

23-08-2014 00:43:50

Cita:

Empezado por MartinS (Mensaje 432929)

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

23-08-2014 01:23:05

Cita:

Empezado por nicolasjavier (Mensaje 480290)

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

15-07-2021 21:17:35

Exportar a PDF

Cita:

Empezado por MartinS (Mensaje 432929)

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

La franja horaria es GMT +2. Ahora son las 01:02:38.