Obter configuração do relatório Quick Report
:?: Tenho um Form (Form1), onde seleciono num DbGrid determinado registro a ser impresso
via Quick Report no Form2. No Form1 4 Edit´s.
1-Margem Superior
2-Margem Inferior
3-Margem Esquerda
4-Margem Direita
Ao carregar o Form (programa), quero preencher os Edit´s com os valores atuais do Form2 que é
o Form do relatório que será impresso pelo Quick Report.
Estou tentando o seguinte,
Edit1.Text := Form2.QuickRep1.Page.TopMargin;
Edit2.Text := Form2.QuickRep1.Page.BottomMargin;
Edit3.Text := Form2.QuickRep1.Page.LeftMargin;
Edit4.Text := Form2.QuickRep1.Page.RightMargin;
Mas da um erro: Incompatible Types: String and Extend.
Será que alguém pode me dar uma dica
Muito obrigado.
Neto
via Quick Report no Form2. No Form1 4 Edit´s.
1-Margem Superior
2-Margem Inferior
3-Margem Esquerda
4-Margem Direita
Ao carregar o Form (programa), quero preencher os Edit´s com os valores atuais do Form2 que é
o Form do relatório que será impresso pelo Quick Report.
Estou tentando o seguinte,
Edit1.Text := Form2.QuickRep1.Page.TopMargin;
Edit2.Text := Form2.QuickRep1.Page.BottomMargin;
Edit3.Text := Form2.QuickRep1.Page.LeftMargin;
Edit4.Text := Form2.QuickRep1.Page.RightMargin;
Mas da um erro: Incompatible Types: String and Extend.
Será que alguém pode me dar uma dica
Muito obrigado.
Neto
Neto
Curtidas 0
Respostas
Fabio.hc
22/01/2004
Tente assim:
Edit1.Text := FloatToStr(Form2.QuickRep1.Page.TopMargin); Edit2.Text := FloatToStr(Form2.QuickRep1.Page.BottomMargin); Edit3.Text := FloatToStr(Form2.QuickRep1.Page.LeftMargin); Edit4.Text := FloatToStr(Form2.QuickRep1.Page.RightMargin);
GOSTEI 0
Neto
22/01/2004
Obrigado pela boa intenção mas, agora da outro erro.
Apresenta erro.. Access Violation.
* Parece que o Form1, não esta enchergando o QuickRep1 que está
no Form2.
ok..
Apresenta erro.. Access Violation.
* Parece que o Form1, não esta enchergando o QuickRep1 que está
no Form2.
ok..
GOSTEI 0