- 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=90008)
-- 发布时间：2016/9/3 9:51:00
-- 请教批选打印的问题
此主题相关图片如下：qq图片20160903094716.png
设计了一窗口，窗口中对应着资产数据列表
我现在设计了一个"标签打印\'的按钮如下,先单击点中我要打印的资产行,然后点"标签打印"按钮可以实现该资产卡片的打印.
我现在设计了一个"标签打印\'的按钮如下,先单击点中我要打印的资产行,然后点"标签打印"按钮可以实现该资产卡片的打印.
Dim Book As New XLS.Book(ProjectPath & "Attachments\\资产卡片.xls")
Dim fl As String = ProjectPath & "Reports\\资产卡片.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Verb = "Print" \'指定动作
Proc.Start()
我现在想实现像图中一样先任意选择多行，然后再点击“标签打印”按钮，实现选中行资产数据的卡片全部一起打印出来，请问如何实现？
我则看了帮助，发现此代码些现相近
Tables("员工").ShowCheckBox = True
For Each r As Row In Tables("员工").GetCheckedRows
r.Delete
Next
请问我应该怎么将此代码结合进行能够实现。或是有别的代码可以实现，请大神们请教。
-- 发布时间：2016/9/3 10:16:00
--
\'对选中行进行筛选,然后直接打印
Dim lst As new List(od Integer)
For Each r As Row In Tables("员工").GetCheckedRows
lst.Add(r("_Identify"))
Next
Dim filter = Tables("员工").Filter
Tables("员工").Filter = "[_Identify] in (" & String.Join(",",lst.ToArray) & ")"
Dim Book As New XLS.Book(ProjectPath & "Attachments\\资产卡片.xls")
Dim fl As String = ProjectPath & "Reports\\资产卡片.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Verb = "Print" \'指定动作
Proc.Start()
Tables("员工").Filter = filter
-- 发布时间：2016/9/4 1:35:00
--
请再指导，语句报错，用不了，
-- 发布时间：2016/9/4 8:39:00
--
Dim lst As new List(of String)
For Each r As Row In Tables("员工").GetCheckedRows
lst.Add(r("_Identify"))
Next
Dim filter = Tables("员工").Filter
Tables("员工").Filter = "[_Identify] in (" & String.Join(",",lst.ToArray) & ")"
Dim Book As New XLS.Book(ProjectPath & "Attachments\\资产卡片.xls")
Dim fl As String = ProjectPath & "Reports\\资产卡片.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Verb = "Print" \'指定动作
Proc.Start()
Tables("员工").Filter = filter
-- 发布时间：2016/9/4 22:44:00
--
谢谢，实现了按选择筛选，但是打印命令执行的时候报错，估计是打印模板需要重新设计。原来 的模板设计上是为了打印单个品种的卡片。