PDA

Ver la Versión Completa : Resetear una Impresora Epson FX-880


AGAG4
24-02-2005, 02:55:16
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:

Procedure TearOff;
Var
F : TextFile;
begin
try
AssignFile(F,'\\TERMINAL1\IMPRESORA (file://\TERMINAL1IMPRESORA)');
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, 18: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, 03:08:31
Gracias por su respuesta voy a probar....

AGAG4
02-03-2005, 01:11:53
Ya lo probe como me dijo pero no funciono(Write(F, #13 (#27'@#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, 19:09:47
hola ...

podrias probar poniendowriteln(F, #27'@')

saludos