主题：[求助]专业报表

 弄一个容器，里面放一个文本控件，再画一条线。

Dim doc As New PrintDoc '定义一个报表

Dim ra As new prt.RenderArea
ra.Stacking = prt.StackingRulesEnum.InlineLeftToRight

Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "编制:" '设置文本对象的内容
rt.width = 10
ra.Children.Add(rt) '将文本对象加入到报表

rt = new prt.RenderText '定义一个文本对象
rt.width = 50
rt.text = "   "
rt.Style.Borders.Bottom = New prt.Linedef(1, Color.Green)
ra.Children.Add(rt) '将文本对象加入到报表

doc.body.Children.Add(ra) '将线条加入到报表中
Doc.Preview() '预览报表