Fórum FastReport 4 - PageCount e Delphi 2007 #357978

05/05/2008

0

Estou tentando retornar o número de páginas de um relatório através do delphi com o código abaixo, mas o resultado retornado é incorreto.

Inicialmente usei este código (Não funciona)
frxReport1.LoadFromFile(´C:\Relatorio.fr3´);
TotalPaginas := cm.frxReport1.PagesCount;

Posteriormente usei este (Também não funciona)
frxReport1.LoadFromFile(´C:\Relatorio.fr3´);
frxReport1.PrepareReport();
TotalPaginas := cm.frxReport1.PagesCount;

Se alguém puder ajudar, pois preciso saber quantas páginas o relatório terá antes de imprimi-lo.


Expertfire

Expertfire

Responder

Posts

05/05/2008

Mazzi

Olá eu fiz aqui e uso da seguinte forma:

[b:49cf9608e9]RLReport1.Prepare;
if RLReport1.Pages.PageCount >0 then
ShowMessage(´é ´+IntToStr(RLReport1.Pages.PageCount));

RLReport1.Preview();[/b:49cf9608e9]

dê uma olhada ai.. pois aqui funcionou direitinho.

Abraços++
.


Responder

Gostei + 0

05/05/2008

Expertfire

Olá eu fiz aqui e uso da seguinte forma: [b:c8f49b377f]RLReport1.Prepare; if RLReport1.Pages.PageCount >0 then ShowMessage(´é ´+IntToStr(RLReport1.Pages.PageCount)); RLReport1.Preview();[/b:c8f49b377f] dê uma olhada ai.. pois aqui funcionou direitinho. Abraços++ .


Mazzi agradeço a ajuda, mas o frxReport não tem as propriedades do seu exemplo, veja abaixo as diferenças:

No seu exemplo:
RLReport1.Prepare;
RLReport1.Pages.PageCount

No FastReport
frxReport1.PrepareReport();
frxReport1.PagesCount;

Mesmo assim agradeço, valeu a intenção.


Responder

Gostei + 0

19/05/2008

Eld

Estou com um problema relacionado a isso também..
Meu relatatório tem 36 páginas..quando uso a função PagesCount, ela conta apenas 2..indiferente do número de páginas

To usando o seguinte código..

frxReport1.LoadFromFile(´C:\Teste\BB.fr3´);
frxReport1.PrepareReport();
showmessage(inttostr(frxReport1.PagesCount));
frxReport1.ShowReport;

Estou fazendo algo errado?


Responder

Gostei + 0

21/07/2009

Andmi

Pessoal! Consegui da seguinte forma:

[b:7a5866a1b0]frxReport1.PreviewPages.Count[/b:7a5866a1b0]


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar