- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 我想打印今天的订单，该怎么办？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70934)
-- 发布时间：2015/7/1 17:37:00
-- 我想打印今天的订单，该怎么办？
我用的是excel报表。
此主题相关图片如下：qq图片20150701173711.png
-- 发布时间：2015/7/1 17:43:00
--
这样可以做到，帮助上面都有的
设计一个模板excel，就可以导出数据。
DataTables.Save()
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.Start()
-- 发布时间：2015/7/1 17:57:00
--
1、可以先用代码筛选；
Tables("订单").Filter = "检测时间 >= #" & date.Today & "# and 检测时间 < #" & date.Today.AddDays(1) & "#"
2、可以直接修改模板，3,9是模板条件的设置的单元格位置
Dim Book As New XLS.Book(ProjectPath & "Attachments\\模板.xls")
Dim fl As String = ProjectPath & "Reports\\模板.xls"
Book.Sheets(0)(3,9).Value = "<检测时间 >= #" & date.Today & "# and 检测时间 < #" & date.Today.AddDays(1) & "#>"
Book.Build()
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()