QuickReport

Delphi

13/08/2003

Boa tarde, estou tendo o seguinte problema:
Necessito imprimir uma QRLabel em um determinado local, mas ela dependera alocar-se se determinado campo estiver preenchido ou não na tabela. Para a 1ª página, funciona, mas nas restantes ele mantém o que foi feito na 1ª..

  QkrEspecifico.QRLabel6.top:=160;
  QkrEspecifico.QRDBRichText2.top:=160;
  QkrEspecifico.QRDBRichText3.top:=160;
  if (DtmProcess.TblProcessoAutores.Value=´´)and(DtmProcess.TblProcessoReus.Value=´´) then
  begin
    QkrEspecifico.QRLabel6.top:=QkrEspecifico.QRDBRichText3.top+48;
    QkrEspecifico.QRDBRichText2.top:=QkrEspecifico.QRLabel6.top+16;
  end
  else
  begin
    if (DtmProcess.TblProcessoReus.Value<>´´)and(DtmProcess.TblProcessoAutores.Value<>´´) then
    begin
      QkrEspecifico.QRDBRichText3.Visible:=true;
      QkrEspecifico.QRDBRichText1.Visible:=true;
      QkrEspecifico.QRDBRichText3.top:=QkrEspecifico.QRDBRichText3.top+70;
      QkrEspecifico.QRLabel6.top:=QkrEspecifico.QRDBRichText3.top+59;
      QkrEspecifico.QRDBRichText2.top:=QkrEspecifico.QRLabel6.top+16;
    end
    else
    begin
      if (DtmProcess.TblProcessoReus.Value=´´) then
      begin
        QkrEspecifico.QRDBRichText3.Visible:=true;
        QkrEspecifico.QRLabel6.top:=QkrEspecifico.QRDBRichText3.top+59;
        QkrEspecifico.QRDBRichText2.top:=QkrEspecifico.QRLabel6.top+16;
      end
      else
      begin
        if DtmProcess.TblProcessoAutores.Value=´´  then
        begin
          QkrEspecifico.QRDBRichText1.Visible:=true;
          QkrEspecifico.QRLabel6.top:=QkrEspecifico.QRDBRichText1.top+59;
          QkrEspecifico.QRDBRichText2.top:=QkrEspecifico.QRLabel6.top+16;
        end;
      end;
    end;
  end;



Skaarj

Skaarj

Curtidas 0

Respostas

Diogoalles

Diogoalles

13/08/2003

Tente colocar no evento BeforePrint da Band onde está o seu Label

abraço
Diogo.


GOSTEI 0
Skaarj

Skaarj

13/08/2003

Vlw cara, eu nao vi q a band possuia um before print, tva colocando no before print do qreport.. d:-)


GOSTEI 0
POSTAR