Imprimir somente a primeira p�gina do rodap� no QuickReport e aproveitar o espa�o nas demais

Muitas vezes precisamos imprimir alguma legenda ou outra informaç�o no radap� das p�ginas. Isto � f�cil usando QuickReport, basta acessar a propriedade Bands do objeto TQuickRep e setar a opç�o HasPageFooter como True. Por�m o rod�pe vai ser impresso em todas p�ginas. Como fazer ent�o para imprimir somente na primeira p�gina e nas demais p�ginas ocupar o espaço que seria destinado ao rodap�, por exemplo, com o detalhe?

Use o evento AfterPrint de sua banda PageFooter e insira o c�digo abaixo, que est� entre o begin e o end.

Para que n�o haja interfer�ncia do c�digo na primeira p�gina, colocamos o c�digo no evento AfterPrint e n�o no BeforePrint. Assim, quando o c�digo for executado pela primeira vez, a primeira p�gina j� tera sido impressa.

Veja tamb�m que montamos a soluç�o de forma otimizada, executando o trecho de c�digo entre o begin e end do "if QuickRep1.PageNumber = 1" somente na primeira p�gina ap�s ela j� ter sido impressa, evitando assim, "n" chamadas a procedure ResetPageFooterSize, pois o pr�prio QuickReport, segundo seu manual, deixa subentender que n�o calcula � cada p�gina seu PageFooter. Apenas o if ser� executado a cada p�gina.


procedure TForm1.PageFooterBand1AfterPrint(Sender: TQRCustomBand;
  BandPrinted: Boolean);

begin
   {usamos o evento AfterPrint para que o c�digo abaixo n�o 
   interfira na primeira p�gina}
   if QuickRep1.PageNumber = 1 then  
  {testamos para executar apenas uma vez, ou seja, otimizar e evitar que 
  ResetPageFooterSize seja executada v�rias vezes o que daria o 
  mesmo efeito que executar apenas uma vez}
   begin
      PageFooterBand1.Enabled := False;     
      {Testado e aprovado e ficou �timo, pq as linhas dos frames tb obedecem}
      //PageFooterBand1.Size.Height := 0;   
     {Testado e aprovado e ficou �timo, pq as linhas dos frames tb obedecem}
      QuickRep1.ResetPageFooterSize;
   end;
end;

Funciona tanto com:

PageFooterBand1.Enabled := False;

ou com

PageFooterBand1.Size.Height := 0;

Testado em Delphi 7 e QuickReport 5.02.

Imprimir somente a primeira p�gina do rodap� no QuickReport e aproveitar o espa�o nas demais

Alternativa para imprimir somente a primeira página do rodapé em relatórios desenvolvidos em QuickReport e aproveitar o espaço nas demais páginas, por exemplo, com o detalhe

Artigos relacionados