Como de un reporte generar una imagen

[Odnanref]

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]

Puedes utilizar el ExportPack

http://usuarios.lycos.es/isma


Saludos

[Odnanref]

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]

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]

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.