F�rum QuickReport #174852

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

Curtir t�pico

+ 0

Responder

Posts

13/08/2003

Diogoalles

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

abra�o
Diogo.

Responder

Gostei + 0

13/08/2003

Skaarj

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

Responder

Gostei + 0