Impressão de arquivo texto
Boa tarde a todos,
Estou desenvolvendo uma aplicação em Delphi5, aonde devo fazer a leitura de um arquivo texto que contem várias linhas e imprimir as mesmas, não armazeno nada em nenhum tipo de tabela, para ler o arquivo sem problemas, agora estou tendo uma certa dificuldade para imprimir , alguem poderia me ajudar? Obrigado a todos.
Fabiano - Rio de Janeiro
Estou desenvolvendo uma aplicação em Delphi5, aonde devo fazer a leitura de um arquivo texto que contem várias linhas e imprimir as mesmas, não armazeno nada em nenhum tipo de tabela, para ler o arquivo sem problemas, agora estou tendo uma certa dificuldade para imprimir , alguem poderia me ajudar? Obrigado a todos.
Fabiano - Rio de Janeiro
Fabiano_aprendiz
Curtidas 0
Respostas
Marconi
02/03/2004
Fabiano
Para voce mandar seu arquivo diretamente para a impressora, faça da mesma forma que faria para gravar um arquivo texto na HD.
Em vez de dar um nome no arquivo de saída, diga que este nome é lpt1.
Vai diretamente para a matricial.
...
var ArqP:TextFile;
begin
...
...
assignfile(ArqP,´lpt1´);
rewrite(arqP);
writeln(ArqP,´Este é o texto´);
closefile(arqP);
end;
Marconi
Marconi
Para voce mandar seu arquivo diretamente para a impressora, faça da mesma forma que faria para gravar um arquivo texto na HD.
Em vez de dar um nome no arquivo de saída, diga que este nome é lpt1.
Vai diretamente para a matricial.
...
var ArqP:TextFile;
begin
...
...
assignfile(ArqP,´lpt1´);
rewrite(arqP);
writeln(ArqP,´Este é o texto´);
closefile(arqP);
end;
Marconi
Marconi
GOSTEI 0
Edupgarcia
02/03/2004
Tenho uma rotina que faz impressões matriciais com alta performance e qualidade e permite visualização ou impressão direta, já está protegida contra o erro de perda de caracteres, comum quando se usa ´printer´ ou ´wirteln´. por apenas R$ 10,00 (Cel. 9784-0995 Eduardo)
GOSTEI 0