用专业报表吧:
Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderTable() '定义一个表格对象
doc.Body.Children.Add(rt) '将表格对象加入到报表中
rt.Style.GridLines.All = New prt.LineDef '将网格线类型设为默认类型
rt.Width = 90 '表宽为90毫米
rt.Height = 90 '表高为90毫米
rt.Rows.Count = 10 '设置行数
rt.Cols.Count = 5 '设置列数
Dim ln As New prt.RenderLine(0,0,1,1,New prt.Linedef) '定义一个线条
ln.Width = "Parent.Width"
ln.Height = "Parent.Height"
For n1 As Integer = 1 To 9
rt.Cells(n1,n1).RenderObject = ln '将线条加入到单元格中.
ln =New prt.RenderLine(0,0,1,1,New prt.Linedef) '定义一个线条
Next
Doc.Preview() '预览报表
加好友 
发短信
Post By：2022/1/7 20:05:00 [只看该作者]
