Como imprimir a banda rodape somente na primeira página e fazer com que ela não consuma espaço nas demais páginas?
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
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
Delmar Observação)
Curtidas 0
Respostas
Emerson Nascimento
26/03/2010
a configuração do espaço ocupado por cabeçalho e rodapé não é feita no próprio report? acho que não é definido na banda.
GOSTEI 0
Delmar Observação)
26/03/2010
GOSTEI 0