IVAND
01-10-2005, 20:07:33
:mad:
Hola a todos espero no molestar ,imprimir directamente en la impresora desde dephi tipo archivo , es justamente lo que hago pero me empieza a dar un error de I/O ERROR 105 que puedo hacer para superar este problema , el error me lo da despues de la primera impresion es decir imprimo una va bien vuelvo a imprimir sale el error , despues del error vuelvo a imprimir y funcioana perfecto luego vuelve a salir y asi sucesivamente .... si puedes ayudarme estaria muy agradecido
El codigo es el siguiente
Procedure imprimir(sender)
var
Txt:TextFile;
begin
AssignFile(Txt,´LPT1´);
Rewrite(Txt);
WriteLn(Txt,´Texto a Imprimir´);
{ Mas lineas a imprimir , el detalle de la factura etx }
CloseFile(Txt);
end;
Cuando va a imprimir la segunda vez el error sale en el primer Writeln y no imprime , vuelvo a intentar y imprimir y asi vuelve el error
Hola a todos espero no molestar ,imprimir directamente en la impresora desde dephi tipo archivo , es justamente lo que hago pero me empieza a dar un error de I/O ERROR 105 que puedo hacer para superar este problema , el error me lo da despues de la primera impresion es decir imprimo una va bien vuelvo a imprimir sale el error , despues del error vuelvo a imprimir y funcioana perfecto luego vuelve a salir y asi sucesivamente .... si puedes ayudarme estaria muy agradecido
El codigo es el siguiente
Procedure imprimir(sender)
var
Txt:TextFile;
begin
AssignFile(Txt,´LPT1´);
Rewrite(Txt);
WriteLn(Txt,´Texto a Imprimir´);
{ Mas lineas a imprimir , el detalle de la factura etx }
CloseFile(Txt);
end;
Cuando va a imprimir la segunda vez el error sale en el primer Writeln y no imprime , vuelvo a intentar y imprimir y asi vuelve el error