- 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=176619)
-- 发布时间：2022/4/20 12:46:00
-- 打印模版设置
老师，附件的打印我选择多条，表格里只能显示一条内容，我想让表格显示我选择多少条就显示多少条，如图1，请帮忙看看，谢谢
此主题相关图片如下：1.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:加班申请单.xlsx |
-- 发布时间：2022/4/20 13:34:00
--
默认就是选择多少条就显示多少条的。
现在输出什么结果？实际需要什么结果？
-- 发布时间：2022/4/20 16:28:00
--
现在输出的是不管我选择多少条，都只显示一条，如图1，我实际需要像如图2一样的
此主题相关图片如下：1.jpg
此主题相关图片如下：2.jpg
-- 发布时间：2022/4/20 16:36:00
--
方法1、使用鼠标拖选需要打印的数据
2、使用代码输出报表，类似这种
Dim Proc As New Process
Dim lst As New List(of String)
For Each r As Row In Tables("表A").GetCheckedRows
lst.add(r("_Identify"))
Next
If lst.count = 0 Then Return
Tables("表A").filter = "_Identify in (" &string.join(",",lst.toarray) & ")"
Dim Book As New XLS.Book(ProjectPath & "Attachments\\表A模板.xlsx")
Dim fl As String = ProjectPath & "Reports\\表A.xlsx"
Book.Build()
Book.Save(fl)
Proc.File = fl
Proc.Start()
记得需要添加all标记：http://www.foxtable.com/webhelp/topics/0201.htm
-- 发布时间：2022/4/21 13:26:00
--
老师，还是不行
按钮代码：
Dim Proc As New Process
Dim lst As New List(of String)
For Each r As Row In Tables("日常考勤明细_操作工工时").GetCheckedRows
lst.add(r("_Identify"))
Next
If lst.count = 0 Then Return
Tables("日常考勤明细_操作工工时").filter = "_Identify in (" &string.join(",",lst.toarray) & ")"
Dim Book As New XLS.Book(ProjectPath & "Attachments\\加班申请单.xlsx")
Dim fl As String = ProjectPath & "Reports\\加班申请单.xlsx"
Book.Build()
Book.Save(fl)
Proc.File = fl
Proc.Start()
此主题相关图片如下：1.jpg
-- 发布时间：2022/4/21 14:10:00
--
all放到表名处
此主题相关图片如下：1.png
-- 发布时间：2022/4/21 17:47:00
--
老师，能否帮忙看看，谢谢
此主题相关图片如下：1.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：2022/4/21 20:21:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:加班申请单.zip |