Imprimindo Direto na LPT1

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

Artigos relacionados