PDA

Ver la Versión Completa : Impresion de Bitmap en rave reports


zheen
23-11-2010, 04:14:47
Hola, tengo un prloblema con la impresion de imagenes BMP, pongo el codigo para q me den una manito.

procedure XXXXXX(Report: TBaseReport);
var
imagenLlave:integer; DirImagenLlave,DireccionApp:string;
Bitmap : TBitmap;
begin
with Report do
begin
DireccionApp:=ExtractFilePath(Application.ExeName);
imagenLlave:= 'imagen.bmp';
DirImagenLlave:=DireccionApp+'imagenes\'+imagenLlave;
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile(DirImagenLlave);
PrintBitmap(2.4,1.5,1,1, Bitmap);
finally
Bitmap.Free;
end;
end;
end;

Ahora, lo q pasa es q cuando se muestra en el "preview" q genera el reporte, la imagen se ve perfectamente con el tamaño real de la imagen BMP, hasta ahi todo perfecto, pero cuando realizo la impresion, la imagen me imprime muy pequeña, no del tamaño real de la imagen.

La verdad no tengo ni idea q es, ayudenme porfavor, gracias de antemano...
Saludos