Foxtable(狐表)用户栏目专家坐堂 → 有功能类似richTextBox,但又可以打印的文本控件吗


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

主题:有功能类似richTextBox,但又可以打印的文本控件吗

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


加好友 发短信
等级:幼狐 帖子:138 积分:1103 威望:0 精华:0 注册:2013/7/5 11:29:00
有功能类似richTextBox,但又可以打印的文本控件吗  发帖心情 Post By:2013/9/11 20:36:00 [显示全部帖子]

如题


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


加好友 发短信
等级:幼狐 帖子:138 积分:1103 威望:0 精华:0 注册:2013/7/5 11:29:00
  发帖心情 Post By:2013/9/11 21:07:00 [显示全部帖子]

没人知道吗?“有点甜”老师在吗?

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


加好友 发短信
等级:幼狐 帖子:138 积分:1103 威望:0 精华:0 注册:2013/7/5 11:29:00
  发帖心情 Post By:2013/9/11 21:37:00 [显示全部帖子]

太谢谢你了!


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


加好友 发短信
等级:幼狐 帖子:138 积分:1103 威望:0 精华:0 注册:2013/7/5 11:29:00
  发帖心情 Post By:2013/9/11 22:38:00 [显示全部帖子]

有点甜老师,我在窗口设置了分页打印,我按你刚刚的方法插入的专业报表的一个文本后它跑到了最后一页的位置去了,有方法将插入的专业报表的文本显示在第一页吗?


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


加好友 发短信
等级:幼狐 帖子:138 积分:1103 威望:0 精华:0 注册:2013/7/5 11:29:00
  发帖心情 Post By:2013/9/11 22:55:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目12.table


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


加好友 发短信
等级:幼狐 帖子:138 积分:1103 威望:0 精华:0 注册:2013/7/5 11:29:00
  发帖心情 Post By:2013/9/11 23:12:00 [显示全部帖子]

如果有三页要在第二页显示就把Dim idx As Integer = 1该Dim idx As Integer = 2是吗?


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


加好友 发短信
等级:幼狐 帖子:138 积分:1103 威望:0 精华:0 注册:2013/7/5 11:29:00
  发帖心情 Post By:2013/9/11 23:29:00 [显示全部帖子]

可是按你的代码没一页都有这个文本的内容呀

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


加好友 发短信
等级:幼狐 帖子:138 积分:1103 威望:0 精华:0 注册:2013/7/5 11:29:00
  发帖心情 Post By:2013/9/11 23:29:00 [显示全部帖子]

可是按你的代码每一页都有这个文本的内容呀

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


加好友 发短信
等级:幼狐 帖子:138 积分:1103 威望:0 精华:0 注册:2013/7/5 11:29:00
  发帖心情 Post By:2013/9/12 9:22:00 [显示全部帖子]

我的目的是想在顺序控件1所在的页面插入专业报表,执行下面的代码后变成顺序控件1所在的页面及它后面的页面都会插入专业报表,问题出现在哪?
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Dim ndoc As New PrintDoc '定义一个报表
Dim idx As Integer = 1
For Each o As object In Doc.Body.Children
    ndoc.Body.Children.Add(o.clone)
    If idx = 1 Then
        Dim rt As New prt.RenderText '定义一个文本对象
        rt.Text = "Hello Foxtable" '设置文本对象的内容
        rt.X = 100
        rt.Y = 100
        ndoc.Body.Children.Add(rt) '将文本对象加入到报表
    End If
Next
ndoc.Preview()

 回到顶部