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.
Site: http://www.rlsystem.com.br/blog
Twitter: http://twitter.com/rafaellealsilva