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.
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.