Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Resetear una Impresora Epson FX-880 (https://www.clubdelphi.com/foros/showthread.php?t=18826)

AGAG4 24-02-2005 03:55:16

Resetear una Impresora Epson FX-880
 
Alguien sabe como mandarle una instrucción en Delphi para Resetear un Impresora Matricial Epson FX-880, lo que pasa es que lo pruebo con asi:
Código Delphi [-]
Procedure TearOff;
Var
  F : TextFile;
begin
  try
    AssignFile(F,'\\TERMINAL1\IMPRESORA');
    Rewrite(F);
    Write(F, #27'@');
  Finally
    CloseFile(F);
  end;
end;
Llamo este procedimiento despues de imprimir en la impresora y al presionar el boton TEAROFF de la misma me saca Correctamente la hoja hasta donde esta el corte de la misma, pero esto lo hace en ocasiones como a la 4ta ó 5ta hoja de imprimir, y cuando no lo hace Correctamente me Saca UNA hoja y MEDIA, la verdad ya le he buscado e investigado y no encuento que pudiera hacer.
Agradezco cualquier ayuda.

vic_ia 24-02-2005 19:49:07

hola...

a mi me ha sucedido con algunos modelos que los caracteres de control no me los acepta correctamente hasta despues de enviar un retorno de carro ... tal vez podrias hacer la prueba...

saludos...

AGAG4 01-03-2005 04:08:31

ok....
 
Gracias por su respuesta voy a probar....

AGAG4 02-03-2005 02:11:53

nop
 
Ya lo probe como me dijo pero no funciono(Write(F, #13#10)), pero si lo pruebo con :
Write(F, #27'@'#13); si me funciona pero aprox. en la 5ta impresión al presionar el botonn TearOff de la impresora me jala una hoja de más en vez de ponerlo al filo del corte de la hoja.

Que tenga buen día.

vic_ia 04-03-2005 20:09:47

hola ...

podrias probar poniendo
Código Delphi [-]
writeln(F, #27'@')

saludos


La franja horaria es GMT +2. Ahora son las 11:38:11.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi