- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 页面设置 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=3478)
-- 发布时间：2009/7/8 10:44:00
-- 页面设置
如何让客户自己进行页面设置？现在每打印一次，都要设置一次，比较烦。
-- 发布时间：2009/7/8 10:48:00
--
呵呵,没听说过打印一次就要设置一次,你的是什么高级打印机啊
不管是专业报表\\窗口打印\\还是Excel报表，都提供了用代码设置页面的功能，你可以自己设计一个窗口，让用户输入边距。
-- 发布时间：2009/7/8 10:49:00
--
我用的是票据打印的那个，不是专业报表，也不是Excel.
[此贴子已经被作者于2009-7-8 10:49:33编辑过]
-- 发布时间：2009/7/8 10:51:00
--
票据打印不就是窗口打印吗？
你看看帮助重关于票据打印的章节。
-- 发布时间：2009/7/8 11:03:00
--
这个我看到了。
要再设计的窗口和一系列全局变量，是可以实现的。
[此贴子已经被作者于2009-7-8 11:18:58编辑过]
-- 发布时间：2009/7/8 11:17:00
--
if Vars("纵向").checked=true then
e.Form.Page.Landscape = True \'纵向打印
else
e.Form.Page.Landscape = false \'横向打印
end if
这段代码有问题，如何解决。
[此贴子已经被作者于2009-7-8 11:18:11编辑过]
-- 发布时间：2009/7/8 11:29:00
--
我晕了，有你这样表述的吗？变量有Checked属性吗?
应该:
If Vars("纵向")=true then
e.Form.Page.Landscape = True \'纵向打印
else
e.Form.Page.Landscape = false \'横向打印
end if
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()
最简洁的：
e.Form.Page.Landscape = Vars("纵向")
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()
如果你正在为他人开发商用系统，最好还是搞清楚那些基本概念。
在一知半解的情况下开发商用系统是很危险的，即使你在他人的帮助下凑合开发出来，肯定其中会有不少隐患，而且以后的维护也是一个问题。
[此贴子已经被作者于2009-7-8 11:33:28编辑过]
-- 发布时间：2009/7/8 14:36:00
--
运行表A的窗口，选纵向或横向，逻辑值不实时变动，为什么？反复几次，全部变成true
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2009/7/8 16:25:00
--
你自己的设计问题，一个简单的问题，搞得复杂得很，还有两个单选按钮的默认值都设为True干啥？
其实什么也不需要，全局变量也不需要，就一行代码而已：
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目131.table |
-- 发布时间：2009/7/8 16:47:00
--
因为我要在另外一个窗口引用这个单选按钮的值，所以用全局变量。如贺老师这样，代码是很简单，但我的目的没有达到。望贺老师指点迷津。
[此贴子已经被作者于2009-7-8 16:49:10编辑过]