Enviando informações direto para a impressora

Muitas vezes torna-se necessário, ou até mesmo, imprescindível que você envie informações diretamente para a impressora, uma vez que a utilização da impressão típica do Windows é um pouco demorada e o uso do driver Genérico/Somente Texto não é muito confiável.

Uma boa solução para enviar informações diretamente para a impressora é usar o seguinte código:

Procedure TForm1.Button1Click(Sender: Object);

var

         Imp: TextFile;

begin

         AssignFile(Imp, 'LPT1');

         Rewrite(Imp);

         Write(Imp, 'Isto vai sair na impressora');

         CloseFile(Imp);

end;

Desta forma será possível, inclusive, utilizar os códigos de configuração da impressora. Para a impressora padrão Epson, por exemplo, você poderia utilizar algo assim:

Write(Imp, #27#69 + 'Teste' + #27#70); { impressão em negrito }

Write(Imp, #15 + 'Teste' + #18); { impressão no modo condensado }

Write(Imp, #12); { salto de página }