Impressão de Arquivos

Boa tarde Pessoal,

Estou tentando montar uma rotina para imprimir qualquer arquivo, mas em dado momento parece que a impressão é cancelada.
Estou usando o seguinte código:

var
arq : TextFile;
....
AssignFile(arq, Arquivo);
AssignPrn(arq);
Rewrite(arq); //nesse momento o arquivo aparece na lista de spool da impressora com o status ´Enviando dados para o Spool´
CloseFile(arq); // nesse momento o arquivo sai da lista da impressora, mas não é impresso.


Alguém sabe como contornar isso ?
Muito Obrigado.