有一支報表格式如下:
需要採用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