Imprimir una linea
 

Hola, necesito ayuda. Delphi 5 en WindowsNT 4. Quiero imprimir en una Matricial EPSON LQ300+ , una linea de texto cada 10 minutos, pero sin que avance toda la pagina.
Las pruebas que he hecho hasta ahora no me han funcionado y siempre me pasa toda la pagina.
No se si esto se consigue por programacion o por configuracion de la impresora.

¿alguien me puede ayudar?

GRACIAS!!!

¿Que significa que no se mueva toda la página?... ¿Que no haga un Page Feed?

Código Delphi [-]
  with TFileStream.Create('LPT1', fmOpenWrite) do
    try
      Write(#13#10, 2);
    finally
      Free;
    end;

Saludos!

efectivamente,no quiero que me haga un Page Feed, ya que cada 10 minutos imprimiría una línea con nuevos valores. Con el código que me has pasado veo que la impresora solo avanza de línea.

Lo que quiero es imprimir una variable de tipo string. En la función Write de TFileStream, veo que el parámetro que va a escribir es una constante Buffer. ¿Se te ocurre alguna manera de que pueda imprimir mi variable string?.
Si pongo mi variable en el lugar donde tu pones #13#10 , el programa no falla, pero no hace nada...

Perdona si te parece muy simple, pero no soy usuario experto de Delphi, y tampoco tengo mucho tiempo para buscar información, ya que tengo que añadir la funcionalidad de imprimir lineas a un programa ya existente, que yo no hice.

Muchas gracias por la ayuda

En el foro tienes unos cuantos ejemplos de uso de Streams, por ejemplo http://www.clubdelphi.com/foros/showthread.php?t=27767

Código Delphi [-]
procedure PrintLine(S: string);
begin
  with TFileStream.Create('LPT1', fmOpenWrite) do
    try
      S := S + #13#10;
      Write(S[1], Length(S));
    finally
      Free;
    end;
end;

Saludos!

Muchas gracias!!!

me funciona perfectamente.

A ver si voy agarrando practica con estas cosas sencillas (para vosotros los expertos) gracias a vuestra ayuda, para seguir con cosas más complejas.

Muchas gracias de nuevo, que me has ayudado mucho