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; 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