erro, AssignFile quando, imprimir com mais de 30 copias

Question

pessoal estou com umm  problema quando quando mando imprimir o  AssignFile com mais  de 30 copias ele mostra o erro file access denied porque esta aparecendo esse erro...

Vitor Alcantara · Answer

N�o sei se � o seu caso, mais acredito que talvez voc� n�o esteja utilizando o comando CloseFile .

Ex:

var
  x,numcopias:integer;
  f:TextFile;  
begin
  numcopias := 30;
  for x := 1 to numcopias do
  Try
      AssignFile(f,�LPT1�);
      Rewrite(f);
      //Aqui voc� coloca a inser��o de dados
      WriteLn(f,�C�pia �+ IntToStr(x));
      Flush(f);//Limpa o boofer (mem�ria) e escreve na porta da imressora
  Finally
    CloseFile(f);//Fecha o arquivo e imprime
  end;
end;

F�rum erro, AssignFile quando, imprimir com mais de 30 copias #343417