FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Barra de botnes del PREVIEW
Wnas foro,
Trabajo con D7, IB7.5 y Utilizo el QuicReport 3.0.9 Deseo configurar mi barra de botones - Como puedo inahabilitar el boton de impresora del preview.?? - Como puedo añadir nuevos botones en el preview?? Gracias por su pronta ayuda... Your friend StartKill Lima-Perú |
#2
|
||||
|
||||
En este hilo encontrarás una forma de acceder a la barra de herramientas del preview del QuickReport.
Sin embargo, como ahí mismo se comentó, lo que realmente te conviene es crearte tu propio visor personalizado, que para algo está la componente TQRPreview. // Saludos |
#3
|
|||
|
|||
como agrego un boton quickreport
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 |
|
|
|