Al imprimir en Impresora Post "I/O ERROR 103"

[servicomp]

Cordial saludo

estamos haciendo un apliocativo para imprimir en una impresora de Post Marca EPSON de punto paralela. Estamos usando Windows Vista ultimate y Delphi 2007. El problema se inicia es cuando queremos mandar a imprimir los encabezados y los textos pertinentes al reporte sale el siguiente error

I/O ERROR 105

y en otros casos

I/O ERROR 103

Este para de errores los desconozco.

estamos usando dos tipos de codigos asi

Código Delphi [-]
Var 
  f: TextFile;
Begin
  Assignfile(f.'LPT1');
  Rewrite(f);
  Write(f,#27+'@');
  Writeln(f,'Encabezado del Reporte');
  ...
  ...
  CloseFile(f);
End;

El otro Codigo Similar que hemos usado y que tambien nos da error es el siguiente.

Código Delphi [-]
Var 
  f: TextFile;
Begin
  AssignPrn(f);
  Rewrite(f);
  Write(f,#27+'@');
  Writeln(f,'Encabezado del Reporte');
  ...
  ...
  CloseFile(f);
End;

Se han instalado los drivers de la impresora para el sistema operativo el cual manejamos pero el mensaje de error sigue saliendo e imprime solo unas cuantas lineas despues de un buen rato

Agradeciendo de antemano la atención prestada y su colaboración

[Casimiro Notevi]

Empezado por servicomp

Assignfile(f.'LPT1');

Eso debe ser una coma, no un punto.

[servicomp]

ai compañero es una coma, disculpa la falla en el codigo, lo que sucede es que lohice con los apuntes que realizo y se me fue el punto, Pero el aplicativo compila correctamente.

Originalmente esta con ,


agradeciendo tu colaboración

[Casimiro Notevi]

Write(f,#27+'@');

Ese write pienso que debe ser writeln

[servicomp]

Te cuento que cambiamos a Writeln, y el problema persiste.

El problema sigue igual

Gracia de antemano por tu tiempo

[DriverOp]

Ambos errores se refieren a lo mismo: El archivo no está abierto. El 103 se refiere a un intento de lectura o escritura en un archivo que no está abierto. El 105 es cuando intentas escribir en un archivo que no está abierto para escritura.

Sospecho que el problema está en que usas rewrite() para abrir la impresora, prueba con reset().

[Casimiro Notevi]

¿Y por qué no pones el código fuente que estás usando en lugar de una copia de tus apuntes?, seguramente podamos ayudarte así.