专家坐堂-[求助]Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75428)

--  作者：SMXTB
--  发布时间：2015/10/8 13:55:00
--  [求助]
我想打印一报表，而报表模板为WORD格式，但在帮助里却只有打印EXCEL格式模板打印代码，请问我将套用那段代码，应如何修改才不会出错
Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls")
Dim fl As String = ProjectPath & "Reports\\出库单.xls"
Book.Build()
Book.Save(fl)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.PrintOut
App.Quit
我的模板文件为：明细单.DOC，我把上段代码机械变为“
Dim Book As New XLS.Book(ProjectPath & "Attachments\\明细单.DOC")
Dim fl As String = ProjectPath & "Reports\\明细单.DOC"
Book.Build()
Book.Save(fl)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.PrintOut
App.Quit
结果运行出错，请问应如何修改呢？

--  作者：大红袍
--  发布时间：2015/10/8 14:04:00
--

word也有，参考

http://www.foxtable.com/help/topics/2890.htm

--  作者：大红袍
--  发布时间：2015/10/8 14:05:00
--

wrt.print就是直接打印。

Dim tm As String = ProjectPath & "Attachments\\出库单.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\出库单.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("出库"),tm,fl) \'定义一个WordReport
wrt.Build() \'逐行生成报表
\'wrt.show
\'wrt.Preview()

wrt.Print()

\'wrt.quit

--  作者：SMXTB
--  发布时间：2015/10/8 14:38:00
--
这样的我也试过，能直接打印，但打印第一次，再打印第二行或第二次时，提示生成的报表被占用，不能保存，其实也不需要保存，但总是提示并且要求你另存为，还是有点麻烦，能否直接打印后不再生成新的文件
此主题相关图片如下：qq图片20151008143408.png

此主题相关图片如下：qq图片20151008143942.png

[此贴子已经被作者于2015/10/8 14:43:10编辑过]

--  作者：大红袍
--  发布时间：2015/10/8 14:44:00
--

要退出

Dim tm As String = ProjectPath & "Attachments\\出库单.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\出库单.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("出库"),tm,fl) \'定义一个WordReport
wrt.Build() \'逐行生成报表
\'wrt.show
\'wrt.Preview()

wrt.Print()

wrt.quit

--  作者：SMXTB
--  发布时间：2015/10/8 14:53:00
--
好的，解决了，非常感谢！

--  作者：SMXTB
--  发布时间：2015/10/13 8:23:00
--
求助一下，我想对日期进行计算得到期间有多少天，如2015-09-06至2015-10-08一共有多少天呢，表达式应该如何写呢

--  作者：大红袍
--  发布时间：2015/10/13 9:09:00
--

word报表？

<DateDiff("d", [日期1], [日期2])>

--  作者：SMXTB
--  发布时间：2015/10/13 9:22:00
--

不是报表，而是一个数据表，其中有这样三列，开始日期、结束日期、执行天数，需要这样进行计算：[结束日期]-[开始日期]=[执行天数]，不知道表达式列[执行开数]如何写

--  作者：大红袍
--  发布时间：2015/10/13 9:24:00
--

参考帮助

http://www.foxtable.com/help/topics/1452.htm