把下面的代码复制到命令窗口运行
Dim doc As New PrintDoc '定义一个报表
Dim ra As new prt.RenderArea
Dim rt As New prt.RenderTable() '定义一个表格对象
rt.Style.GridLines.All = New prt.Linedef '设置网格线
rt.Rows.Count = 4 '设置总行数
rt.Cols.Count = 3 '设置总列数
rt.Height = 110 '设置表格的高度为120毫米
rt.Width = 30
rt.Cells(1,0).SpanRows = 3
Dim rx As new prt.RenderText
rx.Text = "0,0"
rt.cells(0,0).RenderObject = rx
rx = new prt.RenderText
rx.Text = "1,1"
rt.cells(1,1).RenderObject = rx
rx = new prt.RenderText
rx.Text = "2,2"
rt.cells(2,2).RenderObject = rx
rx = new prt.RenderText
rx.Text = "111111111应该是可以的0000000"
rt.cells(1,0).RenderObject = rx
ra.Style.TextAngle = -90
ra.Children.add(rt)
doc.Body.Children.add(ra)
Doc.Preview() '预览报表
加好友 
发短信
Post By：2013/9/12 21:06:00 [显示全部帖子]
