Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
Dim rt1 As New prt.RenderText
Dim rt2 As New prt.RenderText
Dim rt3 As New prt.RenderText
'大标题
rt.Text = "射阳县海河镇信访预警通知书" '设置文本对象的内容
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rt.Style.Font = New Font("方正大标宋简体", 28) '设置字体
rt.Style.TextColor = color.red '字体颜色
rt.Style.Padding.Top = 25 '上边距
doc.Body.Children.Add(rt) '将文本对象加入到报表
'发向单位:
rt1.Text = "射阳县" '设置文本对象的内容
rt1.Style.TextAlignHorz = prt.AlignHorzEnum.left '水平居左
rt1.Style.Font = New Font("黑体", 16) '设置字体
rt1.Style.TextColor = color.black '字体颜色
rt1.Style.Padding.Top = 15 '上边距
doc.Body.Children.Add(rt1) '将文本对象加入到报表
Dim rpar As New prt.RenderParagraph() '定义一个段落对象
rpar.Style.Font = new font("仿宋",16) '定义本段字体
rpar.Style.LineSpacing = 250 '定义行间距
rpar.Style.Padding.Top = 10 '定义与上段间距
rpar.Style.CharSpacing = 1 '定义字间距
rpar.Content.AddText(" 根据舆情监测和你单位信访人动态,你单位信访稳定工作存在一定的风险,镇信访风险评估系统给你单位发出预警,预警级别为:",Color.black)
Dim f As New Font(rpar.Style.Font, FontStyle.Bold) '定义一个同样但加粗的字体
rpar.Content.AddText("一级预警",f,color.red)
rpar.Content.AddText(".")
Dim rpar1 As New prt.RenderParagraph() '定义一个段落对象
rpar1.Style.Font = new font("仿宋",16) '定义本段字体
rpar1.Style.LineSpacing = 250 '定义行间距
rpar1.Style.Padding.Top = 10 '定义与上段间距
rpar1.Style.CharSpacing = 1 '定义字间距
rpar1.Content.AddText(" 希你单位接此预警后,立即组织对所辖信访人员和信访事项进行一次认真的排查,对排查出的信访隐患采取有效的稳控和化解措施,并将排查.稳控.化解情况于三日内报镇信访办.",Color.black)
rt2.Text = "射阳县海河镇人民政府" '设置文本对象的内容
rt2.Style.TextAlignHorz = prt.AlignHorzEnum.Right '水平居右
rt2.Style.Font = New Font("黑体", 16) '设置字体
rt2.Style.TextColor = color.black '字体颜色
rt2.Style.Padding.Top = 30 '上边距
doc.Body.Children.Add(rt2) '将文本对象加入到报表
Dim s As Date = Date.Today
rt3.Text = s '设置文本对象的内容
rt3.Style.TextAlignHorz = prt.AlignHorzEnum.Right '水平居右
rt3.Style.Font = New Font("仿宋", 14) '设置字体
rt3.Style.TextColor = color.black '字体颜色
rt3.Style.Padding.Top = 10 '上边距
doc.Body.Children.Add(rt3) '将文本对象加入到报表
doc.body.Children.add(rpar)
doc.body.Children.add(rpar1)
Doc.Preview()
采用笨的方法生成一个简单的表，但是落款排不上去，请指教。
此主题相关图片如下：qq图片20160919165223.png
加好友 
发短信
Post By：2016/9/24 11:56:00 [只看该作者]
