- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]打印 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=80946)
-- 发布时间：2016/2/13 21:49:00
-- [求助]打印
老师，我要增加一个下拉连框在打印时能选择纵向或横向打印。下面是项目事件变量
Vars.Add("表名",Gettype(String))
Vars.Add("报表名",Gettype(String))
Vars.Add("标题左",Gettype(String))
Vars.Add("标题中",Gettype(String))
Vars.Add("标题右",Gettype(String))
Vars.Add("落款左",Gettype(String))
Vars.Add("落款中",Gettype(String))
Vars.Add("落款右",Gettype(String))
这是按钮代码。
Forms("窗口2").open()
Forms("窗口2").visible = False
Dim doc As PrintDoc = Forms("窗口2").GernatePrintDoc()
doc.Preview
这是窗口事件。我要通过筛选付表后再打印。不直接打印表视图1。望老师帮忙修改完成，谢谢
Tables("入库").OpenView("1")
-- 发布时间：2016/2/14 0:11:00
--
不明白你什么意思，你要怎么筛选都可以，先筛选再打印
Forms("窗口2").open()
Forms("窗口2").visible = False
Tables("入库").Filter = "你要的任意条件啊"
Dim doc As PrintDoc = Forms("窗口2").GernatePrintDoc()
doc.Preview
-- 发布时间：2016/2/14 9:48:00
--
[此贴子已经被作者于2016/2/14 9:54:23编辑过]
-- 发布时间：2016/2/14 9:56:00
--
以下是引用江南小城在2016/2/13 21:49:00的发言：
此主题相关图片如下：图像 2.png
老师，我要增加一个下拉连框在打印时能选择纵向或横向打印。下面是项目事件变量
Vars.Add("表名",Gettype(String))
Vars.Add("报表名",Gettype(String))
Vars.Add("标题左",Gettype(String))
Vars.Add("标题中",Gettype(String))
Vars.Add("标题右",Gettype(String))
Vars.Add("落款左",Gettype(String))
Vars.Add("落款中",Gettype(String))
Vars.Add("落款右",Gettype(String))
这是按钮代码。
Forms("窗口2").open()
Forms("窗口2").visible = False
Dim doc As PrintDoc = Forms("窗口2").GernatePrintDoc()
doc.Preview
这是窗口事件。我要通过筛选付表后再打印。不直接打印表视图1。望老师帮忙修改完成，谢谢
Tables("入库").OpenView("1")
此主题相关图片如下：图像 2.png-- 发布时间：2016/2/14 10:38:00
--
Forms("窗口2").open()
Forms("窗口2").visible = False
Dim doc As PrintDoc = Forms("窗口2").GernatePrintDoc()
doc.PageSetting.Landscape = IIF(Forms("窗口2").Controls("ComboBox1").Text = "横向",True,False)
doc.Preview
-- 发布时间：2016/2/14 10:52:00
--
此主题相关图片如下：图像 2.png
-- 发布时间：2016/2/14 10:54:00
--
根据自己项目改组合框的名称
-- 发布时间：2016/2/14 11:04:00
--
不懂
-- 发布时间：2016/2/14 11:07:00
--
此主题相关图片如下：图像 2.png
-- 发布时间：2016/2/14 11:17:00
--
上传商业版的例子