(Resolvido) Impressão Do Quick Report - Urgente

[Mocota]

Estou com problemas na impressão do quick report

Ele está nessa forma:

Titulo

-----------------

Column Header

-----------------

Detail

-----------------

Sumário

Na última página quando não existe nenhum campo na band detail(recebe valores do BD), a band column header continua sendo impressa, como faço para que ela não apareceça na última página caso isso aconteça?

[Micheus]

Na última página quando não existe nenhum campo na band detail(recebe valores do BD), a band column header continua sendo impressa, como faço para que ela não apareceça na última página caso isso aconteça?

Mocota, talvez você possa tentar verificar o posicionamento no seu dataset no evento BeforePrint. Se já atingiu o fim do arquivo, e ainda assim uma nova página vai ser impressa, então você não imprime a banda.

Tente colocar este código no evento BeforePrint da banda rbColumnHeader:

procedure TRelatorio.QRBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean);
begin
  PrintBand := not QuickRep1.DataSet.Eof;  // imprime se não for fim do arquivo
end;

Veja se resolve.

[Mocota]

Funciono!! muito obrigado!

Abraços