设计一个文档管理文件，想当前行的内容，怎么打不出来呀，帮我看一下有什么问题

Dim doc As New PrintDoc \'定义一个新报表
Dim rb As prt.RenderArea
Dim rt As New prt.RenderText
Dim rt1 As New prt.RenderText
Dim rt2 As New prt.RenderText
\'Dim tb As Row = Tables("工作文档")
rt.text=Tables("工作文档").current("文档名称")
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中
rt.Style.Font = New Font("宋体", 16, FontStyle.Bold)
rb.Children.Add(rt)
rt1.text=Tables("工作文档").current("文档内容")
rt1.Style.Font = New Font("宋体", 14)
rt1.Style.TextIndent = 12
rb.Children.Add(rt1)
rt2.text=Tables("工作文档").current("日期")
rt2.Style.Font = New Font("宋体", 14)
rt2.Style.TextAlignHorz = prt.AlignHorzEnum.Right
rb.Children.Add(rt2)
doc.Body.Children.Add(rb) \'将表格加入到报表
doc.Preview()

Dim rb As prt.RenderArea

改成

Dim rb As new prt.RenderArea