主题：专业报表问题 在线急等

rt.Text = "黑龙江省齐齐哈尔监狱" '设置文本对象的内容
rt.Style.Font= New Font("宋体",22,fontstyle.bold)
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center
rt.Style.Spacing.Bottom  = 3  '和下一个对象保持3毫米的距离
ra.Children.Add(rt) '将文本对象加入到报表
'插入另一个文本框
rt = New prt.RenderText '再次新建一个文本框
rt.Text = "提请减刑建议书" '设置文本对象的内容
rt.Style.Font= New Font("宋体",22,fontstyle.bold)
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center
rt.Style.Spacing.Bottom  = 5
ra.Children.Add(rt) '将文本对象加入到报表
rt = New prt.RenderText
rt.Text ="(2013)黑齐狱减字第   号"
rt.Style.Font= New Font("仿宋",16)
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Right
rt.Style.Spacing.Bottom  = 5
ra.Children.Add(rt)

rt = New prt.RenderText
s = "罪犯[Fields!姓名.Value],男,[Format(Fields!出生日期.Value,""yyyy年M月d日"")]出生,[Fields!民族.Value],捕前家住[Fields!现居地.Value]。"
s = s & "该犯因[Fields!罪名.Value]罪经[Fields!法院.Value]判处有期徒刑[Fields!原判刑期.Value],并处[Fields!附加刑.Value],刑期自"
s = s & "[Format(Fields!刑期开始.Value,""yyyy年M月d日"")]起至[Format(Fields!刑期结束.Value,""yyyy年M月d日"")]止,"
s = s & "于[Format(Fields!入监时间.Value,""yyyy年M月d日"")]送监狱服刑改造,[Fields!刑期变化.Value],现余刑[Fields!余刑.Value]。"
rt.Text = s '设置文本对象的内容
rt.Style.TextIndent = 11 '首行缩进11毫米
rt.Style.LineSpacing = 150
rt.Style.TextAlignHorz = prt.AlignHorzEnum.left
rt.Style.Padding.All=5
rt.Style.Font= New Font("仿宋",16)
rt.Style.Spacing.Bottom  = 5
ra.Children.Add(rt)

rt = New prt.RenderText
rt.Text = "主要犯罪事实："
rt.Style.Spacing.Bottom  =5
rt.Style.TextIndent = 11 '首行缩进11毫米
rt.Style.LineSpacing = 150
rt.Style.Font= New Font("仿宋",16)
ra.Children.Add(rt)
rt = new prt.RenderText
rt.Text = "[Fields!主要犯罪事实.Value]"
rt.Style.TextIndent = 11 '首行缩进11毫米
rt.Style.LineSpacing = 150
rt.Style.Spacing.Bottom  =5
rt.Style.Font= New Font("仿宋",16)
ra.Children.Add(rt)
rt = new prt.RenderText
rt.Text = "该犯在服刑改造期间,确有悔改表现,具体事实如下："
rt.Style.TextIndent = 11 '首行缩进11毫米
rt.Style.LineSpacing = 150
rt.Style.Spacing.Bottom  = 5
rt.Style.Font= New Font("仿宋",16)
rt = new prt.RenderText
rt.Text = "一 认罪服法,接受改造"
rt.Style.TextIndent = 11 '首行缩进11毫米
rt.Style.LineSpacing = 150
rt.Style.Spacing.Bottom  = 5
rt.Style.Font= New Font("仿宋",16)
ra.Children.Add(rt)
rt = new prt.RenderText
rt.Text = "该犯自入监后,能够认罪服法,通过教育改造对自己的犯罪行为给社会带来的危害有了较为深刻的认识,真正做到了认罪悔罪。改造中,该犯能够虚心接受民警的管理教育,严格规范自己的言行,能够认真学习《监狱服刑人员行为规范》,没有违反监规纪律的行为,无违纪,无扣分。该犯还能够同其他罪犯违反监规纪律的行为做斗争。"
rt.Style.TextIndent = 11 '首行缩进11毫米
rt.Style.LineSpacing = 150
rt.Style.Spacing.Bottom  =5
rt.Style.Font= New Font("仿宋",16)
ra.Children.Add(rt)
rt = new prt.RenderText
rt.Text = "二 参加劳动,完成生产任务"
rt.Style.TextIndent = 11 '首行缩进11毫米
rt.Style.LineSpacing = 150
rt.Style.Spacing.Bottom  =5
rt.Style.Font= New Font("仿宋",16)
ra.Children.Add(rt)
rt = new prt.RenderText
rt.Text = " 该犯从事监狱生产服装劳动,能认真负责,积极协助民警完成生产任务,态度端正,服从管理,较好地完成了分配的劳动任务。"
rt.Style.TextIndent = 11 '首行缩进11毫米
rt.Style.LineSpacing = 150
rt.Style.Spacing.Bottom  = 5
rt.Style.Font= New Font("仿宋",16)
ra.Children.Add(rt)
rt = new prt.RenderText
rt.Text = "三 参加""三课""学习,成绩良好"
rt.Style.TextIndent = 11 '首行缩进11毫米
rt.Style.LineSpacing = 150
rt.Style.Spacing.Bottom  = 5
rt.Style.Font= New Font("仿宋",16)
ra.Children.Add(rt)
rt = new prt.RenderText
rt.Text = "该犯积极参加政治文化、技术学习,认真听课并作笔记,按时完成作业,经考试,各科学习成绩合格,其中思想课成绩及格。"
rt.Style.TextIndent = 11 '首行缩进11毫米
rt.Style.LineSpacing = 150
rt.Style.Spacing.Bottom  = 8
rt.Style.Font= New Font("仿宋",16)
ra.Children.Add(rt)
rt = new prt.RenderText
rt.Text = "四 奖惩情况"
rt.Style.TextIndent = 11 '首行缩进11毫米
rt.Style.LineSpacing = 150
rt.Style.Spacing.Bottom  =5
rt.Style.Font= New Font("仿宋",16)
ra.Children.Add(rt)
rt = new prt.RenderText
rt.Text ="在计分考核中,历年累计有效奖分为[Fields!预测累计.Value]分,其中当年度有效奖分[Fields!预测年累计.Value]分。"
rt.Style.TextIndent = 11 '首行缩进11毫米
rt.Style.LineSpacing = 150
rt.Style.Spacing.Bottom  = 5
rt.Style.Font= New Font("仿宋",16)
ra.Children.Add(rt)
rt = new prt.RenderText
rt.Text = "综上所述,该犯能做到认罪服法,服从管教,遵守监规,积极参加""三课""学习,积极参加劳动,较好地完成任务,确有悔改表现。"
rt.Style.TextIndent = 11 '首行缩进11毫米
rt.Style.LineSpacing = 150
rt.Style.Spacing.Bottom  =5
rt.Style.Font= New Font("仿宋",16)
ra.Children.Add(rt)
rt = new prt.RenderText
rt.Text = "为此,根据《中华人民共和国监狱法》第211条《中华人民共和国刑法》第78条第1款、《中华人民共和国刑事诉讼法》第221条第2款及之规定,建议对罪犯[Fields!姓名.Value]减刑[Fields!呈报时间.Value]。特提请裁定。"
rt.Style.TextIndent = 11 '首行缩进11毫米
rt.Style.LineSpacing = 150
rt.Style.Spacing.Bottom  =5
rt.Style.Font= New Font("仿宋",16)
ra.Children.Add(rt)
rt = new prt.RenderText
rt.Text = "此致"
rt.Style.TextIndent = 11 '首行缩进11毫米
rt.Style.LineSpacing = 150
rt.Style.Spacing.Bottom  = 5
rt.Style.Font= New Font("仿宋",16)
ra.Children.Add(rt)

rt = new prt.RenderText
rt.Text = "齐齐哈尔市中级人民法院"
rt.Style.TextIndent = 0 '首行缩进11毫米
rt.Style.LineSpacing = 150
rt.Style.Spacing.Bottom = 50
rt.Style.Font= New Font("仿宋",16)
ra.Children.Add(rt)
rt = new prt.RenderText
rt.Text = "黑龙江省齐齐哈尔监狱"
rt.Style.Font= New Font("仿宋",16)
rt.Y = 440
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Right
ra.Children.Add(rt)
rt = new prt.RenderText
rt.Text ="年   月   日"
rt.Style.Font = new Font("仿宋",16)
rt.Y = 450
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Right
ra.children.add(rt)

rt = new prt.RenderText
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Left
rt.Text ="附:罪犯[Fields!姓名.Value]卷宗材料共1卷1册   页"

rt.Y=470
rt.Style.Font = new Font("仿宋",16)
rt.BreakAfter = prt.BreakEnum.Page
ra.children.add(rt)
doc.Body.Children.Add(ra)
doc.Preview() '预览