Ver la Versión Completa : Como de un reporte generar una imagen
Odnanref
18-12-2003, 22:47:44
Hola a todos
Necesito hacer un programa que de un Qreport me genere una imagen jpg a 300 dpi pero no se me ocurre como hacerlo.
Gracias de antemano a su atencion
guillotmarc
19-12-2003, 00:09:51
Puedes utilizar el ExportPack
http://usuarios.lycos.es/isma
Saludos
Odnanref
23-12-2003, 20:49:54
Mira ya consegui el ExportPack pero al instalarlo me dice que me falta la clase del FastReport donde puedo conseguir el FastReport o que debo de hacer yo estoy trabajando en Delphi 6.
Gracias.
Descendents
23-12-2003, 21:21:14
Si trabajas con Quickreports
Puedes usar
procedure TForm1.Button1Click(Sender: TObject);
var BMP: TBitMap;
StoredUnits: TQRUnit;
i: integer;
StoreDir: string;
begin
StoreDir:='c:\dani.bmp'; //Puedes poner la carpeta o un nombre
QuickRep1.Prepare;
StoredUnits:=QuickRep1.Units;
QuickRep1.Units:=Pixels;
try
for i:=1 to QuickRep1.QRPrinter.PageCount do begin
BMP:=TBitMap.Create;
try
BMP.Width:=Round(QuickRep1.Page.Width);
BMP.Height:=Round(QuickRep1.Page.Length);
QuickRep1.QRPrinter.PageNumber:=i;
BMP.Canvas.Draw(0, 0, QuickRep1.QRPrinter.Page);
BMP.SaveToFile(StoreDir+'Page'+IntToStr(i)+'.bmp');
finally
BMP.Free;
end;
end;
finally
QuickRep1.Units:=StoredUnits;
end;
end;
Saludos
Suerte
guillotmarc
23-12-2003, 22:49:00
Hola.
Cito el apartado correspondiente del archivo Leame.txt que acompaña al componente :
Si no se posee FastReport abrir el fichero ExportPack.Pas y
eliminar la linea {$DEFINE FASTREPORT}
Saludos.
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.