Imprimindo Direto na LPT1

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (0)

Imprimindo Direto na LPT1. Já visualizei muitas pessoas com dificuldades de impressão em matricial(principalmente em fórums, vários tópicos)......

Já visualizei muitas pessoas com dificuldades de impressão em matricial(principalmente em fórums, vários tópicos), muitas usando componentes também.
Nesse artigo ou dica vou mostrar de forma simples de impressão direto na LPT1.
Segue a dica abaixo:

Primeiramente declare uma variável chamada Arquivo(no meu caso) do tipo TextFile.

var
Arquivo : TextFile;


AssignFile(Arquivo,'LPT1');
Rewrite(Arquivo);
Writeln(Arquivo,'IMPRESSÃO MATRICIAL');
Writeln(Arquivo,'');
Writeln(Arquivo,'IMPRESSÃO MATRICIAL - Linha 1');
Writeln(Arquivo,'');
Writeln(Arquivo,'IMPRESSÃO MATRICIAL - Linha 1');
Writeln(Arquivo,'IMPRESSÃO MATRICIAL - Linha 2');
Writeln(Arquivo,'IMPRESSÃO MATRICIAL - Linha 3');
Writeln(Arquivo,'IMPRESSÃO MATRICIAL - Linha 4');
Writeln(Arquivo,'IMPRESSÃO MATRICIAL - Linha 5');
Writeln(Arquivo,'');
Writeln(Arquivo,'');
Writeln(Arquivo,'');
Writeln(Arquivo,'TESTE');
Writeln(Arquivo,'');
CloseFile(Arquivo);

Basicamente seria isso.

Obs: Coloquei 3 linhas em branco justamente para dar espaço no papel e a impressão sair com tamanho certo, fazendo o teste irão entender o por que disso, ou também configurar sobre isso na própria impressora.


Rafael Silva

Site: http://www.rlsystem.com.br/blog
Twitter: http://twitter.com/rafaellealsilva
 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?