Fórum QuickReport (Visible) #182655

Caros Colegas

O que há de errado neste código, estou tentando aplicar a propriedade, mas ela não surte afeito!

procedure TFrmImpresResult.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var sExaTit : string;
begin

with DMDbfLab do
begin
ApDSExa.GoTop;
if ApDSExa.Seek(ApTblTMPRESUL.GetString(´TMPCDEXA´)) then
sExaTit := ApDSEXA.GetString(´EXATIT´);

if (ApDSVAR.GetString(´VAREXM´) = ´S´) and (sExaTit = ´S´) then
begin
QRLblExa.Visible := False;
QRLblMat.Visible := False;
QRDBTxtExa.Visible := False;
QRDBTxtMat.Visible := False;
end
else
begin
QRLblExa.Visible := True;
QRLblMat.Visible := True;
QRDBTxtExa.Visible := True;
QRDBTxtMat.Visible := True;
end;

end;

end;


Obrigado pela ajuda!!!