erro, AssignFile quando, imprimir com mais de 30 copias

Delphi

19/07/2007

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


Ivespas

Ivespas

Curtidas 0

Respostas

Vitor Alcantara

Vitor Alcantara

19/07/2007

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;



GOSTEI 0
POSTAR