Detail Quick Report - 5 Detail por folha

Delphi

21/09/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!!!!

[b:bfd55c9716][color=red:bfd55c9716]Título editado pelo Moderador (AZ) - Removido: ´Urgente !! Para Feras !! ´ - Leia as regras.[/color:bfd55c9716][/b:bfd55c9716]


Idivaldo

Idivaldo

Curtidas 0

Respostas

Cirilo

Cirilo

21/09/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


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

21/09/2004

Colega,

Minha solução:

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;



GOSTEI 0
POSTAR