dataset을 이용하지 않고 StringGrid의 값들을 넘겨주는 작업을 하려고 하는데..
preview를 보면 아무것도 안보입니다.
물론 실행해서 보고있구요
아래와 같이 코딩을 했는데..잘안되네요..뭐가 문제인지요?
값들을 모두 확인한 결과 값들은 다 잘넘어가고 단지 Preview해서 아무것도 안보인다는 겁니다.
아시는 분 가르쳐주세요..

//버튼으로 퀵리포트의 내용을 보여주도록 하였습니다.

procedure TfrmMD_WH_ConsumptionCalculation_Modify.btnPrintClick(
  Sender: TObject);
begin
  qrpMaterialConsumption.Prepare;
  qrpMaterialConsumption.Preview;
end;

// StringGrid로 값을 넘길때는 OnNeedData 이벤트를 이용하라고 하더군요

procedure TqrpMaterialConsumption.QuickRepNeedData(Sender: TObject;
  var MoreData: Boolean);
var
  I , intRowNO : integer ;
begin
  //MoreData값이 True이면 출력작업이 계속되고 false이면 출력이 끝난다.
  //SomeList는 TsringList 클래스의 인스턴스로서 출력하고자 하는 데이터가 들어있다.
  //Current Index는 현재 출력한 개수를 가리키고 SomeList.count는 총 프린트할 개수를 가리키고 있다.
  //따라서 출력할 데이터가  남아 있는 동안은 MoreData의 값은 true가 된다.
  i := 0;
  intRowNO := frmMD_WH_ConsumptionCalculation_Modify.hpgConsumption.RowCount ;     // 총 프린트할 개수
  for i := 0 to intRowNO do // 현재 출력상태를 나타내는 개수
  begin
    MoreData := (i < intRowNO );
    if MoreData  then
    begin
      // Label에 값을 할당한다.
      qlbNO.caption := IntToStr(i);
      // Material Name
      qlbMaterialNameData.caption := frmMD_WH_ConsumptionCalculation_Modify.hpgConsumption.Cells[0,i];
      // Size
      qlbSize.Caption := frmMD_WH_ConsumptionCalculation_Modify.hpgConsumption.Cells[9,i];
      //Color
      qlbColor.Caption := frmMD_WH_ConsumptionCalculation_Modify.hpgConsumption.Cells[8,i];
      //Parts Name
      qlbPartsName.Caption := frmMD_WH_ConsumptionCalculation_Modify.hpgConsumption.Cells[1,i];
      //Length
      qlbLength.Caption := frmMD_WH_ConsumptionCalculation_Modify.hpgConsumption.Cells[2,i];
      //Width
      qlbWidth.Caption := frmMD_WH_ConsumptionCalculation_Modify.hpgConsumption.Cells[3,i];
      //NO of Parts
      qlbPartsNO.Caption := frmMD_WH_ConsumptionCalculation_Modify.hpgConsumption.Cells[4,i];
      //Cons
      qlbCons.Caption := frmMD_WH_ConsumptionCalculation_Modify.hpgConsumption.Cells[5,i];
      //Total Cons
      qlbTTLCons.Caption := frmMD_WH_ConsumptionCalculation_Modify.hpgConsumption.Cells[6,i];
      //Actual Cons
      qlbActualCons.Caption := frmMD_WH_ConsumptionCalculation_Modify.hpgConsumption.Cells[7,i];
      // Progress
      qrpMaterialConsumption.QRPrinter.Progress := (Longint(i) * 100) div intRowNO  ;
    end
    else
      qrpMaterialConsumption.QRPrinter.Progress := 100;
  end; // for end


end;