Fórum Como imprimir a banda rodape somente na primeira página e fazer com que ela não consuma espaço nas demais páginas? #131196

Olá pessoal

No quickreport preciso imprimir a banda rodapé somente na primeira página e fazer com que ela não consuma a altura que lhe foi definida em tempo de projeto, nas demais páginas. Para tanto fiz:



procedure TnplanilhaProducaoImpressao.PageFooterBand1BeforePrint(
  Sender: TQRCustomBand; var PrintBand: Boolean);
begin
   if QuickRep1.PageNumber = 1 then
   begin
      PrintBand := True; //de fato funciona, imprime na primeira página
      PageFooterBand1.Height := 20; //consome espaço que lhe foi defiido em tempo de projeto, e redefino aqui
   end
   else
   begin
      PrintBand := False;  //de fato funciona, não imprime nas demais páginas
      PageFooterBand1.Height := 0;  //porém, continua consumindo o espaço de 20 pixels
   end;
end;


Tentei zerar a altura da banda rodapé quando não for a primeira página, mas não surtiu efeito. Ela continua consumindo o espaço, como se tivesse já reservado esse espaço antes do beforePrint.


Se alguém tiver uma dica para resolver este problema seguindo o mesmo raciocionio ou se tiver outra dica.

O que preciso exatamente é de uma legenda no fim da página, porém, apenas na primeira página.
Até agora a legenda estava no rodapé, em todas páginas. Mas o cliente pediu para colocar apenas na primeira página.
E o que parece fácil, não estou conseguindo. Quero dizer, consigui em parte. Não está sendo impresso nas demais páginas, mas continua consumindo o espaço. Hora, se não vou imprimir, também quero otimizar o uso deste espaço permitindo mais espaço para os detalhes (registros que estão sendo impressos). Ou seja, quero ocupar o espaço que estaria sendo liberado no rodapé para imprimir mais conteúdo. O cliente não iria nem notar se eu deixasse assim, mas é um desafio que me faço para aprender mais e compartilhar problemas e futuras soluções.

Obrigado a todos que puderem enviar dicas.

abraço