I/O Error 103 na hora da impressao direta

Ola pessoal

Esse erro I/O Error 103, esta ocorrendo em todas as impressoes diretas do programa.

O interesante é que acontece somente na primeira impressao do dia ou melhor na primeira impressao que o programa faz de pois de aberto;

Ja vi esse erro aqui no forum, mas nao tem as soluções para o problema.

var
imp : TextFile;
begin
AssignFile(imp, LPT1);
Rewrite(imp);
Write(imp, Format(%-6s,[------------------------------------------------]));
Writeln(imp);
Writeln(imp);
CloseFile(imp);
end;


Obrigado pela ajuda!