Foros Club Delphi - Como de un reporte generar una imagen

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)

- - Como de un reporte generar una imagen (https://www.clubdelphi.com/foros/showthread.php?t=6127)

Como de un reporte generar una imagen

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

Puedes utilizar el ExportPack

http://usuarios.lycos.es/isma

Saludos

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.

Si trabajas con Quickreports

Puedes usar

Código:

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

Hola.

Cito el apartado correspondiente del archivo Leame.txt que acompaña al componente :

Cita:

Si no se posee FastReport abrir el fichero ExportPack.Pas y
eliminar la linea {$DEFINE FASTREPORT}

Saludos.