var
i: Integer; // 유닛변수
procedure TForm9.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
begin
  MoreData := Form1.DBGrid1.SelectedRows.Count > i; //선택한 레코드 만큼 실행.
end;

procedure TForm9.DetailBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  with Form1.DBGrid1 do begin
    //선택한 레코드로 DB커서 이동
    DataSource.DataSet.GotoBookMark(Pointer(SelectedRows.Items[i]));
    // QRLabel에 Data를 넘긴다.
    QRLabel1.Caption := DataSource.DataSet.FieldByName('Hanbun').AsString;
  end;
  inc(i);
end;

procedure TForm9.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  i := 0; //유닛변수 초기화
end;


ㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡ

http://www.delphiunion.com/dwp/QR/qreport.htm
퀵리포트백서 사이트에서 dbgrid의 선택한 레코드만 출력하는 코드인데
빌더에선 어떻게 써야할지 모르겠네요.

아시는분 코드좀 바꿔주세요 ㅎㅎ