Fórum Programação para impressão em impressora matricial #169291

Exitem duas maneiras. Se você for imprimir com o QReport, você pode definir a fonte como Courier new tamanho 10, que é a mesma fonte utilizada pelo DOS (Draft). Ou então utilizar a função:

Procedure TForm1.Button1Click(Sender: TObject);
var Arquivo : TextFile;
begin
AssignFile(Arquivo,´LPT1´);
Rewrite(Arquivo);
Writeln(Arquivo,´Teste de impressao - Linha 0´);
Writeln(Arquivo,´Teste de impressao - Linha 1´);
Writeln(Arquivo,#2715+´Teste de Impressão - Linha 2´);
Writeln(Arquivo,´Teste de impressao - Linha 3´);
Writeln(Arquivo,2718+´Teste de Impressão - Linha 4´);
Writeln(Arquivo,´Teste de impressao - Linha 5´);
Writeln(Arquivo,12); // Ejeta a página
CloseFile(Arquivo);
end;

De uma olhada no componente RdPrint da www.deltress.com.br, ótimo componente para impressão em matricial.