Array
(
)

Detail Quick Report - 5 Detail por folha

Idivaldo
   - 21 set 2004

Olá Galerá !!!


Já procurei sobre o assunto e não consegui nenhuma reposta , então resolvi colocar esta dúvida.

´Tenho um relatorio feito em quick ,com apenas 1 detail , e gostaria que somente fosse impresso 5 details por folha tem como? , se alguem souber , por favor me ajudem!!!!´


Obrigado!!!!

Título editado pelo Moderador (AZ) - Removido: ´Urgente !! Para Feras !! ´ - Leia as regras.


Cirilo
   - 21 set 2004

Crie detalhes ´filhos´ na propriedade ´hasChild´ coloque true, faça também nos filhos.
Pode imprimi-los ou não, utilizo o evento ´before print´ de cada filho.

www.veloso.kit.net


Aroldo Zanela
   - 21 set 2004

Colega,

Minha solução:

#Código

var
Form1: TForm1;
Detalhes: Integer; // Contador de detalhes

implementation

{$R *.dfm}

// Inicializar contador ao criar formulário
procedure TForm1.FormCreate(Sender: TObject);
begin
Detalhes := 0;
end;

// Verificar contador após impressão do detalhe
procedure TForm1.DetailBand1AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
if Detalhes >= 5 then
begin
DetailBand1.ForceNewPage := true; // Saltar página
Detalhes := 0; // Reiniciar contador
end else
DetailBand1.ForceNewPage := false;
end;

procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
Inc(Detalhes); // Incrementar contador de detalhes
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
QuickRep1.PreviewModal;
end;