Quick Report

[edson_hh 0]

Fiz um relatorio em q a 1ª pagina, precisa aparecer todos os dados da empresa.Razão Social, Endereço, Cidade, Nº pedido,etc. e isso ocupa quase 1/2 folha

 

A partir da 2ª pagina, nao eh necessario tudo isso. Mas é preciso colocar algumas informações, pra nao ter perigo da folha extraviar e se perder.

Somente a Razão Social e o numero do pedido.

 

Se eu colocar rbPageHeader, vai aparecer em todas as folhas. Entao eu coloco rbTitle. Apartir da 2ª folha, nao vai aparecer mais nada. Precisaria colocar como se fosse um PageHeader tb, mas com menos informações. É possivel?

[marcio.theis 3]

Uma forma que pode fazer é a seguinte. Coloque o componente Page Header e configure ele normalmente, no evento AfterPrint deste componente faça com que ele diminua de tamanho, oculte os campos desejados e redistribua os campos conforme quiser, algo do tipo:

 

procedure TForm1.PageHeaderBand1AfterPrint(Sender: TQRCustomBand; BandPrinted: Boolean);
begin
PageHeaderBand1.Height:=30;

qrlNomeEmpresa.Top:=20;
qrlTexto1.Enabled:=False;
qrlTexto2.Enabled:=False;
end;