Rotina de impresão com writeln
Olá pessoal, tenho que montar um relatório que envolver várias tabelas e possui vários agrupamentos. Está meio complicado de fazer no QReport.
Alguém poderia me enviar uma rotina de impressão usando o comandos ´Writeln´ ou coisa parecida.
Desde já agradeço.
Márcio.
marcioinf@ig.com.br
Alguém poderia me enviar uma rotina de impressão usando o comandos ´Writeln´ ou coisa parecida.
Desde já agradeço.
Márcio.
marcioinf@ig.com.br
Márcio
Curtidas 0
Respostas
Diogoalles
18/08/2003
procedure TForm1.Button1Click(Sender: TObject);
var
F : TextFile;
i : integer;
begin
AssignFile(F,´LPT1´);
Rewrite(F);
i := 0;
Writeln(F,´Teste de impressao - Linha 0´);
Writeln(F,´Teste de impressao - Linha 1´);
Writeln(F,#2715+´Teste de Impressão - Linha 2´);
Writeln(F,´Teste de impressao - Linha 3´);
Writeln(F,2718+´Teste de Impressão - Linha 4´);
Writeln(F,´Teste de impressao - Linha 5´);
Writeln(F,12); // Ejeta a página
CloseFile(F);
end;
abraço
Diogo
var
F : TextFile;
i : integer;
begin
AssignFile(F,´LPT1´);
Rewrite(F);
i := 0;
Writeln(F,´Teste de impressao - Linha 0´);
Writeln(F,´Teste de impressao - Linha 1´);
Writeln(F,#2715+´Teste de Impressão - Linha 2´);
Writeln(F,´Teste de impressao - Linha 3´);
Writeln(F,2718+´Teste de Impressão - Linha 4´);
Writeln(F,´Teste de impressao - Linha 5´);
Writeln(F,12); // Ejeta a página
CloseFile(F);
end;
abraço
Diogo
GOSTEI 0