主题：[求助][求助]还是那个打印文本的问题，急需解决。谢谢

Dim a as new prt.rendertext

A.text ="hello"

A.style.font = new font("宋体",14,font style.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(c)

doc.preview()

如上，我要的最终打印结果是这样的：hellogood ,是哪里出了问题呢？请指教

谁说没有改变，你在命令窗口执行看看：

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() '预览

哪有这样设计的？

看看这个：

http://www.foxtable.com/help/topics/1183.htm

可以这样：

Dim doc As New PrintDoc '定义一个报表
Dim rpar As New prt.RenderParagraph() '定义一个段落对象
Dim f1 As new Font("宋体",14,fontstyle.underline)
Dim f2 As new Font("宋体",14)
rpar.Content.AddText("Hello",f1)
rpar.Content.AddText("good",f2)
rpar.Content.AddText(".")
doc.body.Children.add(rpar)
Doc.Preview() '预览报表