[水晶報表]動態設定section高度8/4

 有一支報表格式如下:

需要採用Letter一半紙張列印,由於每張明細筆數都在2-4之間,而且簽名要顯示在下方,這就需要在代碼中動態設定section(合計區段Section11)的高度,相關代碼如下:
                       Dim report As New ReportDocument
                       ... ...
                       Dim sects As Sections=report.ReportDefinition.Sections

                        Dim sp, sp1 As String
                        Dim seq As Integer
                        sp1 = ""

                        For inta = 0 To dt.Rows.Count - 1
                            sp = dt.Rows(inta)(0)'群組
                            If sp1 <> sp And inta > 0 Then
                                seq = dt.Rows(inta - 1)(5