- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- word报表问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90891)
-- 发布时间：2016/9/24 11:56:00
-- word报表问题
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
-- 发布时间：2016/9/24 13:10:00
--
晕，掉了一下
doc.body.Children.add(rpar)
doc.body.Children.add(rpar1)
的顺序，居然成了