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;