以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  批量打印Excel报表的代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=572)
--  作者：贺老六
--  发布时间：2008/9/17 19:06:00
--  批量打印Excel报表的代码
刚刚测试通过：

for i as Integer =0 to CurrentTable.Rows.Count -1
    Currenttable.Position = i
    Dim Book As New XLS.Book("c:\\资料卡.xls")
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Book.Save("c:\\reports\\test.xls") \'保存工作簿
    Dim Proc As New Process \'打开工作簿
    Proc.File = "c:\\reports\\test.xls"
    Proc.Verb = "Print"
    Proc.Start()
Next
--  作者：ahljy351
--  发布时间：2008/9/17 19:18:00
--  
这代码往哪加啊？
--  作者：ahljy351
--  发布时间：2008/9/17 19:20:00
--  
("c:\\资料卡.xls") 能不能设成相对路径？也就是项目目录下？
[此贴子已经被作者于2008-9-17 19:20:40编辑过]
--  作者：老大不小
--  发布时间：2008/9/17 19:43:00
--  
同楼上，呵呵
--  作者：gdtgl
--  发布时间：2008/9/17 19:58:00
--  
1.代码可以写在窗口的按纽的 click事件中
2.将报表保存在你想要的目录下...没有限制的吧.(EXCEL报表要先做好的吧)

[此贴子已经被作者于2008-9-17 19:58:12编辑过]
--  作者：贺老六
--  发布时间：2008/9/17 20:30:00
--  
 

ProjectPath

字符型，返回项目文件所在目录。
--  作者：kylin
--  发布时间：2008/9/18 7:28:00
--  

经典之一！
--  作者：kylin
--  发布时间：2008/9/18 7:38:00
--  
呵呵，估计只能装一个EXCEL 了，
再装一个Access还方便学习外部数据表呢。
--  作者：还不错
--  发布时间：2008/9/18 7:52:00
--  
以下是引用hnaysx在2008-9-18 7:31:00的发言：

如果我机器上没有EXCEL 如何呢？政府部门现在有WPS的比较多

[此贴子已经被作者于2008-9-18 7:31:21编辑过]

希望能支持Ｗｐｓ！
--  作者：贺老六
--  发布时间：2008/9/18 8:47:00
--  
呵呵，是否支持wps，不是我决定的，由金山决定，关键他们能否提供编程工具。