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!!!
