Foxtable(狐表)用户栏目专家坐堂 → 打印行数设置


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

主题:打印行数设置

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


加好友 发短信
等级:狐神 帖子:6809 积分:43063 威望:0 精华:0 注册:2009/3/2 14:07:00
打印行数设置  发帖心情 Post By:2009/11/23 9:22:00 [只看该作者]

贺老师11月21口更新,增加了每页打印行数功能,给我们带来了许多方便,基本上可以抛开excel报表,若再能增加这两项功能就更好了:
一、可以通过变量设置打印行数;
二、通过窗口中的table控件打印分页报表的,在每页上可以设置“第几页共几页”的功能。
[此贴子已经被作者于2009-11-23 9:25:39编辑过]

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


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/11/23 9:28:00 [只看该作者]

两个都应该有了,你自己想想。

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


加好友 发短信
等级:狐神 帖子:6809 积分:43063 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2009/11/23 9:31:00 [只看该作者]

我知道在属性中可以设置打印行数,但如何用变量设置打印行数?
贺老师不要卖关子了,你就讲一下如何设置吧!!!

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


加好友 发短信
等级:狐神 帖子:6809 积分:43063 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2009/11/23 9:33:00 [只看该作者]

页眉页脚那里有,但窗口打印用不上的。

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


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/11/23 9:34:00 [只看该作者]

例如:


e.Form.Controls("窗口1_Table1").MaxRows = 12


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


加好友 发短信
等级:狐神 帖子:6809 积分:43063 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2009/11/23 10:30:00 [只看该作者]

在每页上可以设置“第几页共几页”的功能,怎么设置?

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


加好友 发短信
等级:狐神 帖子:6809 积分:43063 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2009/11/23 10:56:00 [只看该作者]

e.Form.Controls("窗口1_Table1").MaxRows = 12


有局限性:table控件设置成副本,而打印的table不能为副本。

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


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/11/23 10:59:00 [只看该作者]

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Dim rt As New prt.RenderText
rt.Text = "第[PageNo]页,共[PageCount]页"
Doc.PageHeader =rt
doc.Preview()

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


加好友 发短信
等级:狐神 帖子:6809 积分:43063 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2009/11/23 13:45:00 [只看该作者]

e.Form.Controls("窗口1_Table1").MaxRows = 12

提示找不到“窗口1_table1"的控件。

 回到顶部
美女呀,离线,留言给我吧!
yangming
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2009/11/23 13:54:00 [只看该作者]

以下是引用lihe60在2009-11-23 13:45:00的发言:

e.Form.Controls("窗口1_Table1").MaxRows = 12

提示找不到“窗口1_table1"的控件。

你窗口中的表是什么名称,这儿就放什么名称,如果是Normal表,那就一定要是副本才可以这样写法


 回到顶部
总数 19 1 2 下一页