QuickReport, me ajudem URGENTE!

Delphi

05/06/2003

Quero imprimir e visualizar meu relatório em duas páginas, só que meu relatório ficou muito grande, então criei dois 2 forms
QR1
QR2
Como posso visualiza e imprimir em 2 paginas?
Quando mando imprimir só sai a primeira, o que devo fazer?


Wagnerg

Wagnerg

Curtidas 0

Respostas

Cabelo

Cabelo

05/06/2003

coloque apenas 1 Quick Report por form, no seu caso vc deve criar um novo form e colocar o QR2 no segundo form, depois
utilize um componente QRComposite, e no evento OnAddReports vc coloca a seguinte codificação:

procedure TfrmNomeForm.QRCompRepAddReports(Sender: TObject);
begin
Application.CreateForm(TfrmNomeForm1, frmNomeForm1);
Application.CreateForm(TfrmNomeForm2, frmNomeForm2);
QRCompRep.Reports.Add(frmNomeForm1.QR1);
QRCompRep.Reports.Add(frmNomeForm2.QR2);
end;

Dessa forma vc irá conseguir imprimir as duas páginas, para maiores informações enviar um e-mail para cabelo_uni@hotmail.com

Sem mais

Cabelo


GOSTEI 0
Wagnerg

Wagnerg

05/06/2003

Na minha rotina eu estou criando este formulário!

Application.CreateForm(TfrmNomeForm1, frmNomeForm1);

Como vou chamar esta procedure

QRCompRep.Reports.Add(frmNomeForm1.QR1); ?

Sem mais...


GOSTEI 0
Cabelo

Cabelo

05/06/2003

Coloque um componente QRComposite, que esta na barra QuickReport.
Vc deve estar usando um botão para realizar a chamada da impressão,
antes de imprimir, vc deve chamar o evento para adicionar os Quick Reports

Sem mais
Cabelo


GOSTEI 0
POSTAR