- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 打印复选框记录 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=151091)
-- 发布时间：2020/6/15 10:52:00
-- 打印复选框记录
在excel报表中打印复选框中选中的记录，代码怎么写呢，以前写过，找不到了。谢谢。
-- 发布时间：2020/6/15 10:56:00
--
Dim s As String = "" For Each r As Row In Tables("表A").GetCheckedRows s =s & "," & r("_Identify") Next s = s.Trim(",") Tables("表A").Filter = "[_Identify] in (" & s & ")" |
-- 发布时间：2020/6/15 10:57:00
--
谢谢，这么快。
-- 发布时间：2020/6/15 11:27:00
--
我这样写为什么不行呢？
Dim Book As New XLS.Book(ProjectPath & "Attachments\\晨午检上报表.xlsx")
Dim fl As String = ProjectPath & "Reports\\晨午检上报表.xlsx"
Dim s As String = ""
For Each r As Row In Tables("晨午检").GetCheckedRows
s =s & "," & r("_Identify")
Next
s = s.Trim(",")
Tables("晨午检").Filter = "[_Identify] in (" & s & ")"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Verb = "Print" \'指定动作
Proc.Start()
-- 发布时间：2020/6/15 13:28:00
--
代码没有问题，上传实例说明
-- 发布时间：2020/6/15 14:28:00
--
本意是想打印选中的行，但它依然是打印当前行。
-- 发布时间：2020/6/15 14:39:00
--
设置为All：http://www.foxtable.com/webhelp/topics/0201.htm
-- 发布时间：2020/6/15 14:45:00
--
老师，打印的是光标所在的行，不是复选框选中的行。我想打印复选框选中的行。加ALL后打印内容没有变化。
-- 发布时间：2020/6/15 14:47:00
--
请上传实例说明
-- 发布时间：2020/6/15 15:33:00
--
请老师给看看报表管理中的报表2
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:打印复选框.zip |