quarta-feira, 1 de abril de 2009

Obter Numero de Paginas de um Relatorio Fast Report 2.54

As vezes um pequeno detalhe consome um dia de programação.

Estava precisando recuperar o numero de paginas de um relatorio atraves do fast report.
Após varias horas do metodo MLTE, consegui recuperar essa informação atraves do seguinte comando:

frRelCad.GetVariableValue('PAGINA',v);

onde frRelCad é o componente FastReport 2.54,
PAGINA é a minha variavel dentro do relatorio e
v é uma variável tipo Variant que retorna o valor
da variável.

Um comentário:

eliana_2828@hotmail.com disse...

Bom dia..
Se quiserem usar o número total de páginas para arquivar em uma tabela, é assim:


QryProdutos.Open;
Report.Clear;
Report.LoadFromFile('C:\Relatorios\Qr1.fr3');
DataSet1.DataSet := QryProdutos;
Report.ShowReport;
ShowMessage('Total de Páginas = ' + IntToStr(Report.PreviewPages.Count));
QryProdutos.Close;