Hice las Siguientes Pruebas de acuerdo a lo que me recomendo jugando con
StretchDraw del TPrinter, hice que imprimiera en tamaño Carta que es una Gran Ventaja, pero la resolución no me convence, lo que pasa es que hago otra prueba de impresión, tengo WinXp Profesional y al abrir el Archivo JPG en el Explorador de Windows automaticamente aparece una ventana donde se ve la imagen alli viene para imprimir presiono este boton, ahora selecciono la impresora y manda imprimir, reviso la impresión y lo Imprime en Tamaño Carta pero Con una Resolución Mucho Mejor que la que Imprime Delphi, acontinuación pongo el código que tengo en delphi....
Código Delphi
[-]
....
try
JPG := TJPEGImage.Create;
JPG.LoadFromFile('c:\tmp\Imagen.jpg');
Printer.PrinterIndex:=cbPrinters.ItemIndex;
Printer.BeginDoc;
Rec.Top:=10;
Rec.Left:=10;
Rec.Right:=10+Printer.PageWidth-2;
Rec.Bottom:=10+Printer.PageHeight-2;
Printer.Canvas.StretchDraw(Rec,Jpg);
Printer.EndDoc;
finally
Jpg.free;
end;
Que me faltá para que me lo imprima con la misma resolución con que la manda windows????
Agradezco cualquier sugerencia.