就是想用代码打印这个表，项目不知怎么做。 Dim rt2 As New prt.RenderTable() '定义一个表格对象
rt2.Rows.Count = 40 '设置总行数
RT2.Cols.Count = 10 '设置总列数
RT2.Height = 230'设置表格的高度为80毫米
RT2.Style.FontSize = 10 '字体大小为8磅
RT2.CellStyle.Spacing.All = 1 '单元格内容缩进1毫米
RT2.Style.Spacing.Bottom = 2 '和下面的对象(表格)距离3毫米
RT2.Style.WordWrap = True
rt2.Style.GridLines.All = New prt.Linedef '设置网格线
rt2.Cols(0).Width = 10
rt2.Cols(2).Width = 10
rt2.Cols(4).Width = 10
rt2.Cols(6).Width = 10
rt2.Cols(8).Width = 10
For r As Integer = 0 To 40
Dim rx As New prt.RenderText '定义一个文本对象
rx.Text = r '为文本对象设置内容
rt2.Cells(r, 0).RenderObject = rX '将文本对象放置在单元格中
Next
我这么写，打出来只填到40，然后想再从第三行填 41到80再从第五行81填到120 。。。。。。就不知怎么写，这样也写不了项目。
加好友 
发短信
Post By：2018/11/7 17:06:00 [显示全部帖子]
此主题相关图片如下：序列表.png