Impressao sem Banco de Dados
20/02/2003
0
Caros amigos , tenho um form e nele varios Edit , apos preencher os edits
quero mandar imprimir. Como devo fazer ? O QuickReport consegui fazer isso ?
quero mandar imprimir. Como devo fazer ? O QuickReport consegui fazer isso ?
Anonymous
Curtir tópico
+ 0
Responder
Posts
21/02/2003
Anonymous
Caro Fabio
Sim pode ser pelo QuickReport, basta que tu faça todo o trabalho sujo, como assim, tu terá de colocar uma QRLabel para cada informação que tiveres no Form, uma outra forma é imprimir direto na Porta a seguir mando um código que fiz para isto.
Espero ter ajudado
Saad
var
Texto: TextFile;
begin
try
Screen.Cursor := crSQLWait;
AssignFile(Texto,´Lpt1´);
Rewrite(texto);
Writeln(Texto,´------------------------------------------------´);
Writeln(Texto,Texto1);
Writeln(Texto,Texto2);
CloseFile(Texto);
finally
Screen.Cursor := crDefault;
end;
end;
Sim pode ser pelo QuickReport, basta que tu faça todo o trabalho sujo, como assim, tu terá de colocar uma QRLabel para cada informação que tiveres no Form, uma outra forma é imprimir direto na Porta a seguir mando um código que fiz para isto.
Espero ter ajudado
Saad
var
Texto: TextFile;
begin
try
Screen.Cursor := crSQLWait;
AssignFile(Texto,´Lpt1´);
Rewrite(texto);
Writeln(Texto,´------------------------------------------------´);
Writeln(Texto,Texto1);
Writeln(Texto,Texto2);
CloseFile(Texto);
finally
Screen.Cursor := crDefault;
end;
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)