Foros Club Delphi - Imprimir imagen

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)

- - Imprimir imagen (https://www.clubdelphi.com/foros/showthread.php?t=50510)

MAXIUM

20-11-2007 19:34:07

Imprimir imagen

Hola, como puedo imprimir una imagen usando la API de Windows.
He probado con el siguiente código pero no sale con las dimensiones del dibujo, es decir muy en miniatura

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
Var Bitmap: TBitMap;
begin
     Bitmap:= TBitmap.Create;
     Bitmap.LoadFromFile('logo.bmp');
     
     Printer.BeginDoc;
     Printer.Canvas.Draw(100, 100, Bitmap);
     Printer.EndDoc;
     
     Bitmap.Free;
end;

cHackAll

20-11-2007 20:51:49

Código Delphi [-] Printer.Canvas.CopyRect(Rect(0, 0, Printer.PageWidth, Printer.PageHeight), Bitmap.Canvas, Rect(0, 0, Bitmap.Width, Bitmap.Height));

MAXIUM

20-11-2007 21:10:51

Funciono casi de maravillas ya que me ocupo casi toda la hoja, pero esos son solo detalles. Gracias.

La franja horaria es GMT +2. Ahora son las 21:05:50.