FastReport代码计算高度

最新推荐文章于 2022-03-18 19:47:36 发布

SayShap程序猿

最新推荐文章于 2022-03-18 19:47:36 发布

阅读量2k

点赞数

本文链接：https://blog.csdn.net/dudu1919/article/details/17042639

版权

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