Fórum Relatório QuickRep??? #212298

var
  Form1: TForm1;
  Selecionado:integer;

procedure TForm1.FormActivate(Sender: TObject);
begin
   Selecionado:=ADOTable1Codigo.Value;
end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
   Selecionado:=ADOTable1Codigo.Value;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   QuickRep1.Preview;
end;

procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
   PrintBand:=selecionado = ADOTable1Codigo.Value;
end;