Dim lst As new List(of String)
lst.add("1,1111")
lst.add("2,2222")
lst.add("3,3333")
lst.add("4,4444")
lst.add("5,5555")
Dim 报表 As New PrintDoc '定义一个报表
Dim 表格 As New prt.RenderTable() '定义一个表格对象
报表.Body.Children.Add(表格) '将表格对象加入到报表中
表格.Style.GridLines.All = New prt.LineDef '将网格线类型设为默认类型
For r As Integer = 0 To lst.Count - 1
表格.rows(r).Height = 表格.rows(r).Height + 5 '这样的写法,通不过
For c As Integer = 0 To 1
表格.Cells(r,c).Text = lst(r).split(",")(c)
Next
Next
报表.Preview() '预览报表