Solo imprime la primera vez

[[seoane]]

Prueba con esto:

Código Delphi [-]
var
  DeviceMode: THandle;
  Device, Driver, Port: array[0..1023] of char;
begin
  Printer.GetPrinter(Device, Driver, Port, DeviceMode);;
  with Printer do
  begin
    SetMapMode(Printer.Handle,MM_LOMETRIC);
    BeginDoc;
    Canvas.Font.Size:= 10;
    Canvas.TextOut(100,200,'hola mundo');
    EndDoc;
  end;
  Printer.SetPrinter(Device, Driver, Port, DeviceMode);;
end;