Relatório de TEdits - Temporário

Delphi

03/02/2016

Bom dia á todos galera,

Seguinte...

Eu tenho um formulário que contém somente TEdits:

- Nome
- Sobrenome
- Endereço
- Telefone
- Cidade
- Estado

Eu gostaria de criar um formulário que eu pudesse imprimir o que for preenchido nas Edits, sem banco de dados, é como se fosse um "relatório temporário". Tem como fazer isso?
Se sim, alguém poderia me explicar como fazer?

Desde já agradeço... Bom dia a todos
Misael

Misael

Curtidas 0

Melhor post

Raimundo Pereira

Raimundo Pereira

03/02/2016

Boa tarde,

Coloque 6 Edits com os nomes
E_NOME
E_Sobrenome
E_Estado
E_EndereCO
E_Cidade
E_Telefone
Coloque 1 Button com o nome
Imprimir

Adicione componente de reletório fast reports
RELATORIO_RT: TfrxReport;
frxGradientObject1: TfrxGradientObject;


Dentro do fast vá até a aba >>Report>>Variables...

Crie 6 variaveis.



var
Nome:string
var
Sobrenome:string
var
Endereco:string
var
Telefone:string
var
Cidade:string
var
Estado:string


-----------------
No button imprimir coloque o seguinte código.

RELATORIO_RT.Variables.Clear;

RELATORIO_RT.Variables['Nome'] := QuotedStr(E_NOME.Text);
RELATORIO_RT.Variables['Sobrenome'] := QuotedStr(E_Sobrenome.Text);
RELATORIO_RT.Variables['Endereco'] := QuotedStr(E_EndereCO.Text);
RELATORIO_RT.Variables['Telefone'] := QuotedStr(E_Telefone.Text);
RELATORIO_RT.Variables['Cidade'] := QuotedStr(E_Cidade.Text);
RELATORIO_RT.Variables['Estado'] := QuotedStr(E_Estado.Text);

RELATORIO_RT.PrepareReport();
RELATORIO_RT.ShowReport();

[img]http://arquivo.devmedia.com.br/forum/imagem/437747-20160203-163322.png[/img]

Se não conseguir dar o zoom na imagem salve a mesma e abra no visualizador de imagens do Windows.

Espero que ajude.
GOSTEI 1

Mais Respostas

Misael

Misael

03/02/2016

Valeu cara...nossa, me ajudou muito, muito obrigado :)
GOSTEI 0
POSTAR