- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助][求助]还是那个打印文本的问题，急需解决。谢谢 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=22300)
-- 发布时间：2012/8/8 15:07:00
-- [求助][求助]还是那个打印文本的问题，急需解决。谢谢
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 ,是哪里出了问题呢？请指教
-- 发布时间：2012/8/8 15:23:00
--
这个问题还是没有解决。如上方法定义字体没有改变
-- 发布时间：2012/8/8 15:38:00
--
您觉得这是字体设置的问题？
-- 发布时间：2012/8/8 15:39:00
--
谁说没有改变，你在命令窗口执行看看：
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() \'预览
-- 发布时间：2012/8/8 17:14:00
--
C的打印结果为hello good,hello下面没有下划线啊？
-- 发布时间：2012/8/8 20:02:00
--
我想要的是这样的结果：hellogood
-- 发布时间：2012/8/8 21:18:00
--
哪有这样设计的？
看看这个：
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() \'预览报表
-- 发布时间：2012/8/8 21:22:00
--
谢谢，我也不想这样，只是有个地方需要这样做，没办法，我也很郁闷。不过，还是要谢谢狐爸。