主题：批量打印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

这代码往哪加啊？

("c:\资料卡.xls") 能不能设成相对路径？也就是项目目录下？

同楼上，呵呵

1.代码可以写在窗口的按纽的 click事件中
2.将报表保存在你想要的目录下...没有限制的吧.(EXCEL报表要先做好的吧)

 

ProjectPath

字符型，返回项目文件所在目录。

经典之一！

呵呵，估计只能装一个EXCEL 了，
再装一个Access还方便学习外部数据表呢。

希望能支持Ｗｐｓ！

呵呵，是否支持wps，不是我决定的，由金山决定，关键他们能否提供编程工具。