Foxtable(狐表)用户栏目专家坐堂 → 完美解决piao据打印链式连续进纸问题,请大家指正!


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

主题:完美解决piao据打印链式连续进纸问题,请大家指正!

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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/1/21 13:40:00 [显示全部帖子]

呵呵,这个问题可是困惑了很多人,终于解惑,谢楼主,精华!

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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/1/21 13:43:00 [显示全部帖子]

因为禁止的问题是打印控件的问题,用代码的方式确实没有办法解决,除非我自己另外重写,但是工作量太大了。

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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/1/21 13:50:00 [显示全部帖子]

是的,专业报表的控件没有提供这个属性。

 

另外问一下,这么设置之后,是否就是直接像下面这样打印,代码中不需要设置纸张了?

 

 

Dim doc As New PrintDoc '定义一个报表
Dim
rt As New prt.RenderTable() '定义一个表格对象
doc.Body.Children.Add(rt)
'将表格对象加入到报表中
'下面的代码向表格中填入值

For
r As integer = 0 to 5
   
For c As integer = 0 to 5
       
dim rx As New prt.RenderText '定义一个文本对象
        rx.Text = r &
"," & c '为文本对象设置内容
        rt.Cells(r, c).RenderObject = rx
'将文本对象放置在单元格中
   
Next
Next

doc.Preview()
'预览报表


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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/1/21 14:12:00 [显示全部帖子]

呵呵,收到,多谢

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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/1/21 15:18:00 [显示全部帖子]

如果不指定纸张大小的话,打印预览的时候,显示的似乎不是预定义的纸张。

 

[此贴子已经被作者于2014-1-21 15:24:53编辑过]

 回到顶部