- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 勾选打印失效 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=180952)
-- 发布时间：2022/10/20 9:29:00
-- 勾选打印失效
老师，请帮忙看看，我设置的是只打印勾选的内容，但是勾选之后不能打印。如图。
此主题相关图片如下：1.jpg
代码如下：
Dim Book As New XLS.Book(ProjectPath & "Attachments\\出货单打印.xlsx")
Dim fl As String = ProjectPath & "Reports\\出货单打印.xlsx"
Dim str As String = "-1,"
Dim t As Table = e.Form.controls("发货明细").Table
For Each r As Row In t.GetCheckedRows
str &= r("_Identify") & ","
Next
book.sheets(0)(6,14).value = "<[_Identify] in (" & str.trim(",") & ")>"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
\'Proc.Verb = "Print" \'指定动作
Proc.Start()
此主题相关图片如下：2.jpg
-- 发布时间：2022/10/20 9:37:00
--
Dim Book As New XLS.Book(ProjectPath & "Attachments\\出货单打印.xlsx")
Dim fl As String = ProjectPath & "Reports\\出货单打印.xlsx"
Dim str As String = "-1,"
Dim t As Table = e.Form.controls("发货明细").Table
For Each r As Row In t.GetCheckedRows
str &= r("_Identify") & ","
Next
tables("xx表").filter = "[_Identify] in (" & str.trim(",") & ")"
book.sheets(0)(6,14).value = "<ALL>"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
\'Proc.Verb = "Print" \'指定动作
Proc.Start()
-- 发布时间：2022/10/20 11:31:00
--
老师，按照2楼的方法设置了，还是如一楼的情况
-- 发布时间：2022/10/20 11:32:00
--
请上传实例测试
-- 发布时间：2022/11/7 9:04:00
--
老师，请帮忙看看，进去之后点击率窗口表-销售发货明细-查询-然后左上角的“发货单打单”，谢谢
-- 发布时间：2022/11/7 9:56:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.zip |
-- 发布时间：2022/11/7 10:04:00
--
老师，如图异常，打不开
此主题相关图片如下：qq截图20221107100215.jpg
-- 发布时间：2022/11/7 10:12:00
--
升级Foxtable到最新版
-- 发布时间：2022/11/7 10:12:00
--
我现在升级不了了，我的到期了
-- 发布时间：2022/11/7 10:13:00
--
购买升级服务。现在有活动换购哦：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=183312