제가 게을러터져서...^^
그냥 제가 했던거 올립니다...
즐프하세요...

// 퀵리포트 이미지변환...
function Func_QReport_BMP(vp_QReport:TQuickRep;vp_FileName:String;vp_ImageList:TStringList):Boolean;

function Func_QReport_BMP(vp_QReport:TQuickRep;vp_FileName:String;vp_ImageList:TStringList):Boolean;
var
  BMP         : TBitMap;
  StoredUnits : TQRUnit;
  vv_I        : integer;
  Image_Name  : String;
begin
  Result := True;
  try
    vp_QReport.Prepare;
    StoredUnits      := vp_QReport.Units;
    vp_QReport.Units := Pixels;
    try
      for vv_I :=1 to vp_QReport.QRPrinter.PageCount do
      begin
        Image_Name := vp_FileName + IntToStr(vv_I) + '.BMP';
        BMP := TBitMap.Create;
        try
          BMP.Width  := Round(vp_QReport.Page.Width );
          BMP.Height := Round(vp_QReport.Page.Length);
          vp_QReport.QRPrinter.PageNumber := vv_I;
          BMP.Canvas.Draw(0, 0, vp_QReport.QRPrinter.Page);
          BMP.SaveToFile(Image_Name);
          vp_ImageList.Add(Image_Name);
        finally
          BMP.Free;
        end;
      end;
    finally
      vp_QReport.Units := StoredUnits;
    end;
  except
    raise;
    Result := False;
  end;

end;

님 감사요...^^

님이 주신 소스보구 해보구요...

만약에 제가 잘못해서 또 에러가 난다면 또 질문드릴께요...

정말 감사하구요...즐건 하루 되세요....^^