QrReport proxima Pagina

Eu estou usando Qrlabel e no evento beforeprint da unica band(collun..header) tem o seguinte script .... procedure TFrmRpt.ColumnHeaderBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
  var
  aux : string;
begin
  DmEmissaoCracha.CdsEmissaoCracha.First;
  WHILE NOT DmEmissaoCracha.CdsEmissaoCracha.EOF DO
  BEGIN
      aux := DmEmissaoCracha.CdsEmissaoCrachaNOME.AsString;
      QRLabel7.Caption := aux;
      aux := DmEmissaoCracha.CdsEmissaoCrachaPIS.AsString;
      QRLabel8.Caption := AUX;
      DmEmissaoCracha.CdsEmissaoCracha.Next;
    IF DmEmissaoCracha.CdsEmissaoCracha.Eof THEN
      DmEmissaoCracha.CdsEmissaoCracha.Last
    ELSE
    BEGIN
      aux := DmEmissaoCracha.CdsEmissaoCrachaNOME.AsString;
      QRLabel5.Caption := aux;
      aux := DmEmissaoCracha.CdsTb_FuncPIS.AsString;
      QRLabel6.Caption := aux;
      DmEmissaoCracha.CdsEmissaoCracha.Next;
      IF DmEmissaoCracha.CdsEmissaoCracha.EOF THEN
        DmEmissaoCracha.CdsEmissaoCracha.LAST
      ELSE
      BEGIN
        aux := DmEmissaoCracha.CdsEmissaoCrachaNOME.AsString;
        QRLabel3.Caption := aux;
        aux := DmEmissaoCracha.CdsEmissaoCrachaPIS.AsString;
        QRLabel4.Caption := aux;
        DmEmissaoCracha.CdsEmissaoCracha.Next;
        IF DmEmissaoCracha.CdsEmissaoCracha.EOF THEN
          DmEmissaoCracha.CdsEmissaoCracha.Last
        ELSE
        BEGIN
          aux := DmEmissaoCracha.CdsEmissaoCrachaNOME.AsString;
          QRLabel1.CAPTION :=AUX;
          aux := DmEmissaoCracha.CdsEmissaoCrachaPIS.AsString;
          QRLabel2.Caption := aux;
        eND;
      END;
    END;
    DmEmissaoCracha.CdsEmissaoCracha.Next;
  END; end;
          ... e neste collunheader eu usei a propriedade Forcenewpage como true o Grande problema é quando passo mais de 4 registros para CLintdataset   1- nao esta forçando a proxima pagina   Socorro galera

Colega,   E qual é a dúvida?

Colega,   Você não precisa sequer de uma única linha de código para os eventos do QR. Basta dar uma olhada nos exemplos do QR que acompanham o produto.   Coloque uma banda detalhe com duas colunas (etiquetas) e dimensione a banda para a largura da metade do papel e pronto.   []'s AZ

Colegas,   Desculpem, onde se lê: largura, leia-se: altura.

Aroldo Obrigado pelo apoio mas nao entendi essa parte da explicação ''Coloque uma banda detalhe com duas colunas (etiquetas) e dimensione a banda para a largura da metade do papel e pronto.'' vc poderia me dar uma força em como colocar duas colunas (etiquetas)  na banda detalhe  

Colega,   Faça um novo formulário. Solte uma query e coloque o "select" e ative-a. Solte um QuickReport e faça a associação com a query. Clique duas vezes sobre o QuickRep e assinale "Detail band" e "Number of columns = 2". Redimensione a altura do formulário para a metade do seu formulário físico.   Não é necessário nenhuma linha de código.

Haroldo mais uma vez obrigado pelo apoio... sua tecnica esta me encaminhando para a solução porem so consigo dois registros por folha e seria 4

Entao Aroldo..... Conseguir colocar ate 3 registro na tela mais eu precisava de quatro Segue a imagem do resultado

Haroldo manda um post ai para eu finalizar essa duvida quero agradecer pelo apoio novamente  

Colega,   Pode descrever o caminho que seguiu? Deveria funcionar para qualquer quantidade de registros.