![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#3
|
|||
|
|||
![]() hola , la verdad no se si de lo que hablan es del quickreport pero me gustaria la ayuda para agregar un boton a mi quickreport para ligarle un procedimiento que me convierte a pdf el quickreport,
ya tengo la funcion pero me dice que necesito tener encendido el quickpreport1.preview, y que dentro este el boton para aplicar la conversion de quickrep a pdf, estuve viendo el hilo que mensiona roman pero soy un novaton y necesito un poco de mas informacion. muchas gracias de antemano , saludos, gracias a todos. el procedimiento que debe de estar adentro es procedure TForm1.Button1Click(Sender: TObject); var B:TBitmap; MF:TMetaFile; JPG:TJPegImage; i:Integer; lPV:Boolean; nPaginas:Integer; cFileExport:string; // s : TQRStandardPreview; 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 // npaginas:=quickrep1.QRPrinter.PageCount; 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; estoy usando los componentes powerpdf gracias!!! ![]()
__________________
Se un buen lector y que la fuerza te acompañe |
|
|
![]() |
|