Fórum Impressão de arquivo texto #217697
02/03/2004
0
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
Curtir tópico
+ 0
Responder
Posts
02/03/2004
Marconi
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
Responder
Gostei + 0
04/03/2004
Edupgarcia
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)
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)