以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  打印行数设置  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5101)
--  作者：lihe60
--  发布时间：2009/11/23 9:22:00
--  打印行数设置
贺老师11月21口更新，增加了每页打印行数功能，给我们带来了许多方便，基本上可以抛开excel报表，若再能增加这两项功能就更好了：
一、可以通过变量设置打印行数；
二、通过窗口中的table控件打印分页报表的，在每页上可以设置“第几页共几页”的功能。
[此贴子已经被作者于2009-11-23 9:25:39编辑过]
--  作者：狐狸爸爸
--  发布时间：2009/11/23 9:28:00
--  
两个都应该有了，你自己想想。
--  作者：lihe60
--  发布时间：2009/11/23 9:31:00
--  
我知道在属性中可以设置打印行数，但如何用变量设置打印行数？
贺老师不要卖关子了，你就讲一下如何设置吧！！！
--  作者：lihe60
--  发布时间：2009/11/23 9:33:00
--  
页眉页脚那里有，但窗口打印用不上的。
--  作者：狐狸爸爸
--  发布时间：2009/11/23 9:34:00
--  

例如：


e.Form.Controls("窗口1_Table1").MaxRows = 12
--  作者：lihe60
--  发布时间：2009/11/23 10:30:00
--  
在每页上可以设置“第几页共几页”的功能，怎么设置？
--  作者：lihe60
--  发布时间：2009/11/23 10:56:00
--  

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


有局限性：table控件设置成副本，而打印的table不能为副本。
--  作者：狐狸爸爸
--  发布时间：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
--  发布时间：2009/11/23 13:45:00
--  

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

提示找不到“窗口1_table1"的控件。
--  作者：yangming
--  发布时间：2009/11/23 13:54:00
--  
以下是引用lihe60在2009-11-23 13:45:00的发言：

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

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

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