Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderTable() '定义一个表格对象
Dim rpar As New prt.RenderParagraph() '定义一个段落对象
Dim f As New Font(rpar.Style.Font, FontStyle.Bold) '定义一个同样但加粗的字体 '
rt.Style.GridLines.All = New prt.Linedef(Color.DarkGray) '将表格的颜色设为深灰色
rt.Rows.Count = 3 '设置行数
rt.Cols.Count = 3 '设置列数
rt.Width = 150 '设置表格的宽度
rt.Height = 150 '设置表格的高度
rt.x=50
rt.y=10
rt.Cells(1, 2).Style.BackColor = Color.Crimson
rt.Cells(0, 1).Style.BackColor = Color.BlueViolet
rt.Cells(0, 1).Style.Borders.All = New prt.Linedef(1, Color.Green)
rpar.Content.AddText("这是一个段落. 现在是正常文本. ")
rpar.Content.AddText("现在的文本是加粗的. ", f)
rpar.Content.AddText("这一句是红色的. ", Color.Red)
rpar.Content.AddText("这一句是上标形式,上标不再是难题. ", prt.TextPositionEnum.Superscript)
rpar.Content.AddText("现在字体加粗,而且是红色. ", f, Color.Red)
rpar.Content.AddText("现在字体加粗,红色,而且是下标形式. ", f, Color.Red, prt.TextPositionEnum.Subscript)
rpar.Content.AddText("现在又是正常的文本了. ")
rpar.Content.AddText("最后,我们来插入一个图标: ")
rpar.Content.AddImage(getimage("logon.ico"))
rpar.Content.AddText(".")
rt.Cells(1,1).RenderObject = rpar '将单元格内容设置为图片对象rm
doc.Body.Children.Add(rt) '将文本对象加入到报表
Doc.Preview() '预览报表
加好友 
发短信
Post By：2019/12/29 11:37:00 [只看该作者]
