Fórum impressão de texto #193615

fiz um pequeno projeto chamado (bloco de notas), implementei um código para imprimir utilizando a expressão [b:d6a601dc4a]AssignPrn[/b:d6a601dc4a] com a variável [b:d6a601dc4a]ArqImp[/b:d6a601dc4a], associando o arquivo de texto com a impressora. Mas o delphi não está reconhecendo a expressão [b:d6a601dc4a]´AssignPrn´[/b:d6a601dc4a]. O que pode está acontecendo.

O código para imprimir ficou assim:


procedure TFrmanota.Imprimir1Click(Sender: TObject);
var
ArqImp:textfile;
linha:integer;

begin
if pdgimprime.Execute then
begin
AssignPrn(arqimp);
rewrite(arqimp);
Printer.canvas.Font:=memtexto.font;
for linha:=0 to memtexto.Lines.Count - 1 do
writeln(arqimp,memtexto.lines[linha]);
system.Closefile(arqimp);
end;

end.