- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 打印选中的记录 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=144635)
-- 发布时间：2019/12/25 21:58:00
-- [求助] 打印选中的记录
你好，老师，要将表A中只选中的记录输出到模板中，在打印按钮中如何写代码，可以帮忙一下吗 ？谢谢了。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:test.rar |
-- 发布时间：2019/12/26 9:35:00
--
Tables("表A").Filter = "第二列=true"
Dim Book As New XLS.Book(ProjectPath & "Attachments\\test.xls")
Dim fl As String = ProjectPath & "Reports\\test.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:test.xls |
-- 发布时间：2019/12/26 19:13:00
--
谢谢老师，可不可以帮忙调一下，因为一打印时那些没有勾远的都不见了，可不可以让他们留在原地呢 ？
此主题相关图片如下：捕获.jpg
-- 发布时间：2019/12/27 8:41:00
--
dim f as string = Tables("表A").Filter
Tables("表A").Filter = "第二列=true"
Dim Book As New XLS.Book(ProjectPath & "Attachments\\test.xls")
Dim fl As String = ProjectPath & "Reports\\test.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Tables("表A").Filter = f
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()