Ajustar el tamaño de la imagen para imprimir

[ingel]

Hola a todos , se que es un tema bastante tratado .. pero no logro dar con la solucion . Estoy usando Delphi5 y QReport. Mi problema es que las imagenes guardadas en la DB (sql) son muy 'grandes' y al imprimirlas me imprime solo una parte .. he tratado de recurrir al Strech pero las 'deforma totalmente' y quedan ilegibles ... (creo que en Delphi 7 este problema ya esta solucionado , pero lamentablemente tengo que seguir con el 5) ... tendria que imprimir en tamaño A4 sea cual sea el tamaño y dimensiones originales de las imagenes (escaneadas)
Saludos y gracias

[seoane]

Bueno, no se si te servirá pero aquí te dejo un método para imprimir una imagen ajustándola al tamaño del papel, sin deformarla.


uses Printers, Jpeg;

procedure Imprimir(Imagen: TGraphic);
var
R: TRect;
Ancho, Alto: Integer;
begin
with Printer, Printer.Canvas do
begin
Printer.Orientation := poPortrait;
BeginDoc;
try
Ancho:= ClipRect.Right - ClipRect.Left;
Alto:= ClipRect.Bottom - ClipRect.Top;
R:= Rect(0, 0, Ancho, Alto);
if (Ancho/Imagen.Width) < (Alto/Imagen.Height) then
R.Bottom:= Trunc((Ancho*Imagen.Height)/Imagen.Width)
else
R.Right:= Trunc((Imagen.Width*Alto)/Imagen.Height);
StretchDraw(R,Imagen);
EndDoc;
except
Abort;
end;
end;
end;

// Ejemplo de uso
var
Imagen: TJpegImage;
begin
Imagen:= TJPEGImage.Create;
try
Imagen.LoadFromFile('d:\1.jpg');
Imprimir(Imagen);
finally
Imagen.Free;
end;
end;

[ingel]

lo pruebo y te comento

[Casimiro Notevi]

Ya hace tiempo que se escribió este hilo, pero hoy me ha hecho falta "urgentemente" justo lo que hace el código que había escrito seoane.
El resultado ha sido perfecto como es costumbre en él :)