Fórum matricial 40 Colunas #258333

AssignFile(Arquivo,´LPT1´) no lugar de lpt1 pode ser o caminho do servidor
Rewrite(Arquivo); reescreve o arquivo
Temp := Copy(Memo1.Lines[0],1,35); aqui eu utilizo um memo, mas pode ser qualquer texto
WriteLn(Arquivo,Temp);
For I := 1 to 12 do
WriteLn(Arquivo,´ ´); aqui termina o texto e da espaço para o serrilhado da impressora
CloseFile(Arquivo); aqui termina a impressão

O projeto ACBr (veja minha assinatura) possui o componente ACBrECF, que consegue emular um ECF em uma impressora Matricial Comum, aceitando toda a sintaxe do ACBrECF....

O objetivo dessa caracteristica é auxiliar no Desenvolvimento e Testes... de aplicações comerciais com ECF.