Imprimir Informe y almacenarlo como PDF

[marcoszorrilla]

Si tienes la versión "Profesional" de QuickReport, que es de pago puedes hacerlo.

Un Saludo.

[[BlueSteel]]

y no existe otra posibilidad de hacerlo... ya que solo tengo la versión que viene con el Delphi...

Existirá algun componente que lo permita, o tendre que hacer el informe con el RaveReport.... (Esta herramienta lo permite hacer ? )

[Scooter]

Puedes usar alguna de las herramientas gratuitas de impresión de pdf's como el PDF Writer o el PDF Machine que emulan una impresora por lo que no tendrás que tocar tu aplicación.

[Gabriel]

Hola

me estoy mirando QRexport de Export Filters

en principio van muy bien.
he cambiado los imatges y los shape del Report en Quick Report por estos, total un informe facil, lo cambias en 5 minutos.
creo el pdf asi

procedure TFPartes.BAcrobatClick(Sender: TObject);
var
aPDFFilt : TQRPDFDocumentFilter;
begin

Screen.Cursor := crAppStart;
With TFReportParte.Create(Application) do
try
Screen.Cursor := crDefault;
QuickRep1.ExportToFilter( aPDFFilt );
finally
aPDFFilt.free;
Screen.Cursor := crDefault;
Application.ProcessMessages;
Free;
end;
end;

ahora estoy implementando el tema de ver el pdf despues de crearlo y poder poner el nombre al PDF y directorio.
Enviame un correo si quieres

Saludos

[pcicom]

Si se Puede, Si se puede...


Checate el articulo de la Revista Sintesis en el Numero 19, y ahi tienes la Solucion...

por ahi esta esto

Exportando QR a PDF.

El formato PDF (http://www.adobe.es/products/acrobat/adobepdf.html) es uno de los más difundidos para la
distribución de información hoy en día.Teniendo como ventaja su total integración con la web, la posibilidad de ser
leído en distintos tipos de sistemas operativos.
Para convertir nuestro reporte en un documento pdf, nos apoyaremos de la librería PowerPDf también
OpenSource la cual podemos descargar desde http://www.est.hi-ho.ne.jp/takeshi_kanno/powerpdf
Estos componentes permiten crear documentos pdf. visualmente muy parecido a cómo funciona el
QuickReport, estos tienen entre sus posibilidades la de generar estos documento a partir de Imágenes jpg a través
de su componente TPRJpegImage.

[Gabriel]

HE mirado las PowerPDF y realmente he quedado contento.
parece que funcionan muy bien, traen ejemplos y el montaje es muy parecido a Quick Report.

Lo unico, que si tienes ya realizado el informe en Quick Report con las Export Filter lo conviertes mas rapido y tienes la opcion de verlo con el preview de Quick Report o pasarlo a PDF.
Con las Power Pdf tienes que crear el informe de nuevo.

Con las Export Filter todavia no he conseguido hacer informes de mas de una pagina, con las power vienen los ejemplos que muestran como.

Total las Power muy buena alternativa y ademas con codigo.

[pcicom]

Lo unico, que si tienes ya realizado el informe en Quick Report con las Export Filter lo conviertes mas rapido y tienes la opcion de verlo con el preview de Quick Report o pasarlo a PDF.
Con las Power Pdf tienes que crear el informe de nuevo.

Pues para hacer muchas monadas con QuickReport tambien tienes que investigar hacerca de como agregar mas monadas, asi que puedes crearte tu propio PREVIEW, personalizado por ti... y para crear tus PDF unicamente agregas un botoncito a tu PREVIEW y agregas este codigo junto con el PowerPDF..

procedure TMiPreview.Button1Click(Sender: TObject);
var
   B:TBitmap;
   MF:TMetaFile;
   JPG:TJPegImage;
   i:Integer;
   lPV:Boolean;
   nPaginas:Integer;
begin
   cFileExport := Trim(Caption);
   SaveDialog1.FileName := cFileExport+'.PDF';
   // Pide el Nombre del Archivo que le vas a poner
   if SaveDialog1.Execute then
   begin
      cFileExport := SaveDialog1.FileName;
      lPV := True;
      // Se supone que hicieste un PREVIEW de tu reporte y te lo mostro 
      // a pantalla entonces checaremos cuantas paginas son de tu reporte

      nPaginas := QRPreview1.QRPrinter.PageCount;

     // y Utilizamos el componente PREport

      PReport1.FileName := cFileExport;
      PReport1.BeginDoc;
      B   :=TBitmap.Create;
      jpg :=TJPegImage.Create;

      // Recorremos las paginas de nuestro reporte 

      For i:=1 to nPaginas do
      begin
         MF  :=QRpreview1.QRPrinter.GetPage(i);
         B.Width :=MF.Width;
         B.Height :=MF.Height;
         B.Canvas.Draw(0,0,MF);

         // Convertimos la Pagina a JPG

         Jpg.Assign(B);

         // La Agregamos a PowerPDF

         PRJpegImage1.Picture.Assign(jpg);
         PRJpegImage1.Repaint;
         PReport1.Print(PRPage1);
         PRJpegImage1.Assign(nil);
         B.FreeImage;
      end;

      // Terminamos nuestro Reporte PDF

      PReport1.EndDoc;
      B.free;
      jpg.Free;

      // Y Listo...            Maravilloso....  ehhhh

   end;

end;