Imprimir Imagem direto na Lpt1

Question

Galera, alguem conhece alguma forma de imprimir direto uma imagem na porta da impressora usando o writeln() por exemplo.Desde j� agrade�o....

Madrick · Answer

Galera ninguem tem uma luz para me dar?...

Dberlese · Answer

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);

F�rum Imprimir Imagem direto na Lpt1 #337433