Dim iHeight As Double 
      Dim columnData_form As DataSourceBase
     
      iHeight=Page1.TopMargin
      columnData_form=Report.GetDataSource("rpt_PurInDepart_Detail")
      columnData_form.Init
      For i As Integer =1 To iSelectRows
        iHeight=iHeight+Data1.Height/37.8*10
        iHeight=iHeight+DataFooter1.Height/37.8*10 
      Next
      iHeight=iHeight+Data2.Height/37.8*10*columnData_form.RowCount
      iHeight=iHeight+Page1.BottomMargin 
      Page1.PaperHeight=iHeight