FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#9
|
|||
|
|||
lo revise y me aparece las hojas pdf en blanco
el codigo que utilize es el mismo de antes pero nomas le agregue la linea , utilizacon un quickreport ya que tu utilizar un qrpreview correcto.
el codigo es el sig. aver si pueden ayudarme y decirme que estoy haciendo mal gracias. procedure TForm1.Button1Click(Sender: TObject); var B:TBitmap; MF:TMetaFile; JPG:TJPegImage; i:Integer; lPV:Boolean; nPaginas:Integer; cFileExport:string; begin // cFileExport := Trim(Caption); // SaveDialog1.FileName := cFileExport+'.PDF'; // Pide el Nombre del Archivo que le vas a poner cFileExport := 'c:\test.pdf'; 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 Quickreport1.Prepare; // npaginas:=quickrep1.QRPrinter.PageCount; nPaginas := Quickreport1.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 :=Quickreport1.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.Picture:=nil; B.FreeImage; end; // Terminamos nuestro Reporte PDF PReport1.EndDoc; B.free; jpg.Free; // Y Listo... Maravilloso.... ehhhh end;
__________________
Se un buen lector y que la fuerza te acompañe |
|
|
|