Foxtable(狐表)用户栏目专家坐堂 → [求助][求助]还是那个打印文本的问题,急需解决。谢谢


  共有10194人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
狐狸爸爸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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() '预览


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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() '预览报表


 回到顶部