matricial 40 Colunas
Imprimir um texto grande em 40 Colunas direto para impressora matricial tipo Bobina Muito obrigada?
Rr
Curtidas 0
Respostas
Edilcimar
13/11/2004
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
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
GOSTEI 0
Dopi
13/11/2004
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.
O objetivo dessa caracteristica é auxiliar no Desenvolvimento e Testes... de aplicações comerciais com ECF.
GOSTEI 0