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;

[Chogo]

Gracias, me funciona ahora perfecto, lo que aun no entiendo muy bien, es como funciona a ciencia cierta

Pero esto es lo entiendo.

GetPrinter: es para obtener infarmcion de la impresora actual y que el controla todo y manipula esa empresora.
Pero no se que es lo que hace el "SetPrinter"

Por favor me gustaria que me aclararan, no solo quiero resolver el problema, si no aprender.

!!Pero gracias a todos!!, gracias Seoane.

[[seoane]]

Por algún motivo, el cual desconozco y no voy a buscar , parte de la información sobre la impresora se pierde durante la impresión. Yo solo guardo la información antes de empezar (GetPrinter) y la restauro al terminar (SetPrinter).

[Chogo]

jaja , pero ya comprendo lo que haces. gracias