퀵레포트 처음 하는지라 잘 모르겠네여.
여기저기 있는 소스 끌어다 만들어 봤는데...
조금만 도와 주세요..

소스가 다음과 같습니다.
프리뷰하면, 아무것도 안나오네여..
뭐가 잘못됐나여?
물론 query는 오픈한 상태입니다..

퀵레포트는
책이나 헬프봐도 잘 설명이 되어 있는거 같지 않아서인데..
가능하시면 이벤트의 기능에 대해 조금만 설명해 주세여
어떤 경우에, 어떻게 사용되는지.. ^^

감기 조심들 하세여

///////////////////////////////////////////////////

procedure Tprint_ryousyu_data.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  if not DM.M_Query1.EOF then PrintReport := True
  else PrintReport := False;
end;

procedure Tprint_ryousyu_data.QuickRep1NeedData(Sender: TObject;
  var MoreData: Boolean);
begin
   if not DM.M_Query1.EOF then MoreData := True
   else MoreData := False;
end;

procedure Tprint_ryousyu_data.QRBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  with DM.M_Query1 do
  begin
    RYOSYUSYO_NO.Caption := FieldByName('RYOSYUSYO_NO').AsSTRING;
    TOKUISAKIKANJI1.Caption := FieldByName('TOKUISAKIKANJI1').AsSTRING ;
    TOKUISAKIKANJI2.Caption := FieldByName('TOKUISAKIKANJI2').AsSTRING ;
    KINGAKU.Caption := FieldByName('KINGAKU').AsSTRING ;
  end;
  PrintBand := True;
end;

procedure Tprint_ryousyu_data.QuickRep1AfterPrint(Sender: TObject);
begin
  // 한 레코드 한페이지로 하기 위해..
  if not DM.M_Query1.Eof then QuickRep1.NewPage;
end;

///////////////////////////////////////////////////////////////////