¿Como imprimir una imagen BMP en Lazarus 1.2.4?

[ecfisa]

Hola rrf.

Primero agrega el paquete Printer4Lazarus como se indica en este enlace: Using the printer/es

Te pongo el código de la prueba:

Código Delphi [-]
...
uses Printers;     
...
procedure TForm1.Button1Click(Sender: TObject);
var
  bmp: Graphics.TBitmap;  // Si se incluye Windows es necesario especificar: Graphics.
begin
  bmp:= Graphics.TBitmap.Create;
  try
    bmp.LoadFromFile('C:\pruebas\Imagen.bmp');
    try
      Printer.BeginDoc;
      Printer.Canvas.Draw(1200, 800, bmp);
    finally
      Printer.EndDoc;
    end;
  finally
    bmp.free;
  end;
end;

Imprime el bitmap sin errores pero creo que hay cosas para ajustar, igual espero que te sirva de base. La verdad es que sólo he realizado algunas pruebas en Lazarus así que dejo los detalles importantes a los expertos.

Saludos