FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
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
__________________
Tec. Fernando M. Flores M. Aguascalientes Ags. México Email: odnanrefleugim@hotmail.com, fernandomiguelf02@yahoo.com.mx |
#2
|
||||
|
||||
__________________
Marc Guillot (Hi ha 10 tipus de persones, els que saben binari i els que no). |
#3
|
||||
|
||||
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.
__________________
Tec. Fernando M. Flores M. Aguascalientes Ags. México Email: odnanrefleugim@hotmail.com, fernandomiguelf02@yahoo.com.mx |
#4
|
|||
|
|||
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; Suerte |
#5
|
||||
|
||||
Hola.
Cito el apartado correspondiente del archivo Leame.txt que acompaña al componente : Cita:
__________________
Marc Guillot (Hi ha 10 tipus de persones, els que saben binari i els que no). |
|
|
|