以文本方式查看主题

-  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表,那就一定要是副本才可以这样写法