Ver Mensaje Individual
  #2  
Antiguo 02-10-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita