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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 批量打印Excel报表的代码

共有24674人关注过本帖树形打印复制链接主题：批量打印Excel报表的代码

贺老六

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：485 积分：2996 威望：0 精华：10 注册：2008/9/12 14:37:00

批量打印Excel报表的代码 发帖心情

Post By：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

[本帖被加为精华]