QrReport proxima Pagina

04/10/2010

Gustavo Matos

Ol� Todos... Estou usando delphi 7 (standar..)com Sql Server 2005 E uso quickReport .... Tenho que desenvolver um relatorio aparentemente simples,mas ............. � um relatorio que apresenta o nome e numero do pis de cada funcionario em cada folha do relatorio eu vou exibir ate 4 funcionarios com seu dados respctivo como no exemplo abaixo

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

Responder

Gostei + 0

04/10/2010

Aroldo Zanela

Colega, E qual � a d�vida?

Responder

Gostei + 0

04/10/2010

Aroldo Zanela

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

Responder

Gostei + 0

04/10/2010

Aroldo Zanela

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.

Responder

Gostei + 0

04/10/2010

Gustavo Matos

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

Responder

Gostei + 0

04/10/2010

Aroldo Zanela

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.

Responder

Gostei + 0

04/10/2010

Gustavo Matos

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

Responder

Gostei + 0

04/10/2010

Gustavo Matos

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

Responder

Gostei + 0

04/10/2010

Gustavo Matos

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

Responder

Gostei + 0

04/10/2010

Aroldo Zanela

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.

Responder

Gostei + 0

F�rum QrReport proxima Pagina #387836