Ver Mensaje Individual
  #8  
Antiguo 23-03-2005
pcicom pcicom is offline
Miembro
 
Registrado: may 2003
Ubicación: MONTERREY MEXICO
Posts: 253
Reputación: 21
pcicom Va por buen camino
checate esto...

Código:
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..


Código:
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;
__________________
Poco ha de saber el que no pregunta.. Yo por eso soy un pregunton
Responder Con Cita