PDA

Ver la Versión Completa : Imprimir una linea


prequejo
01-12-2005, 11:06:22
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!!!

delphi.com.ar
01-12-2005, 13:12:30
¿Que significa que no se mueva toda la página?... ¿Que no haga un Page Feed?

with TFileStream.Create('LPT1', fmOpenWrite) do
try
Write(#13#10, 2);
finally
Free;
end;


Saludos!

prequejo
01-12-2005, 14:21:30
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

delphi.com.ar
01-12-2005, 14:49:49
En el foro tienes unos cuantos ejemplos de uso de Streams, por ejemplo http://www.clubdelphi.com/foros/showthread.php?t=27767


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!

prequejo
01-12-2005, 15:51:34
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