Imprimir una imágen con la clase TPrinter

[krewer]

Antes de abrir un nuevo hilo y aprovechando que estamos en esto, como podria agregar una imagen en la impresion?

[ecfisa]

Hola krewer.

Empezado por krewer

Antes de abrir un nuevo hilo y aprovechando que estamos en esto, como podria agregar una imagen en la impresion?

Moví tu mensaje como un hilo nuevo. Siempre que tengas un nueva consulta no dudes en abrir un nuevo hilo con ella, eso mejora los resultados en las búsquedas.

Código Delphi [-]
uses Printers;

procedure PrintImage(Pic: TPicture; const posX, posY: Integer);
var
  R   : TRect;
  x, y: Integer;
begin
  Printer.BeginDoc;
  try
    x := GetDeviceCaps(Printer.Handle, LogPixelsX) div Screen.PixelsPerInch;
    y := GetDeviceCaps(Printer.Handle, LogPixelsY) div Screen.PixelsPerInch;
    R := Rect(posX, posY, posX + Pic.Width * X, posy + Pic.Height * Y);
    Printer.Canvas.StretchDraw(R, Pic.Graphic);
  finally
    Printer.EndDoc;
  end;
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.btnPrintImageClick(Sender: TObject);
begin
  PrintImage(Image1.Picture, 800, 250);
end;

Saludos