Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共10 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:批量打印Excel报表的代码

1楼
贺老六 发表于:2008/9/17 19:06:00
刚刚测试通过:

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
2楼
ahljy351 发表于:2008/9/17 19:18:00
这代码往哪加啊?
3楼
ahljy351 发表于:2008/9/17 19:20:00
("c:\资料卡.xls") 能不能设成相对路径?也就是项目目录下?
[此贴子已经被作者于2008-9-17 19:20:40编辑过]
4楼
老大不小 发表于:2008/9/17 19:43:00
同楼上,呵呵
5楼
gdtgl 发表于:2008/9/17 19:58:00
1.代码可以写在窗口的按纽的 click事件中
2.将报表保存在你想要的目录下...没有限制的吧.(EXCEL报表要先做好的吧)

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

ProjectPath

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

7楼
kylin 发表于:2008/9/18 7:28:00

经典之一!

8楼
kylin 发表于:2008/9/18 7:38:00
呵呵,估计只能装一个EXCEL 了,
再装一个Access还方便学习外部数据表呢。
9楼
还不错 发表于:2008/9/18 7:52:00
以下是引用hnaysx在2008-9-18 7:31:00的发言:

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

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

希望能支持Wps!

10楼
贺老六 发表于:2008/9/18 8:47:00
呵呵,是否支持wps,不是我决定的,由金山决定,关键他们能否提供编程工具。
共10 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 2 queries.