Imprimir Imagem direto na Lpt1
Galera, alguem conhece alguma forma de imprimir direto uma imagem na porta da impressora usando o writeln() por exemplo.
Desde já agradeço.
Desde já agradeço.
Madrick
Curtidas 0
Respostas
Madrick
06/02/2007
Galera ninguem tem uma luz para me dar?
GOSTEI 0
Dberlese
06/02/2007
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);
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);
GOSTEI 0