Dim a As new prt.rendertext A.text ="hello" A.style.font = new font("宋体",14,fontstyle.underline) Dim b As new prt.rendertext B.text = "good" Dim c As new prt.rendertext C.text = a.text & b.text Dim doc As New PrintDoc doc.Body.Children.Add(a) '将文本对象加入到报表 doc.Body.Children.Add(b) '将文本对象加入到报表 doc.Body.Children.Add(c) '将文本对象加入到报表 doc.Preview() '预览