Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Impresión
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #3  
Antiguo 30-05-2005
jcarlos.matrix jcarlos.matrix is offline
Miembro
 
Registrado: may 2005
Ubicación: ensenada b.c.
Posts: 18
Poder: 0
jcarlos.matrix Va por buen camino
Question 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
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 03:41:10.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi