Foxtable(狐表)用户栏目专家坐堂 → [求助]excel 工作表批量打印问题


  共有17218人关注过本帖树形打印复制链接

主题:[求助]excel 工作表批量打印问题

帅哥哟,离线,有人找我吗?
pyh6918
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1135 积分:11105 威望:0 精华:2 注册:2008/9/1 10:45:00
[求助]excel 工作表批量打印问题  发帖心情 Post By:2009/11/14 15:29:00 [显示全部帖子]

一个excel工作簿中有多个工作表模版,在生成新的工作簿时可一次性生成全部工作表。
用什么方法可以对这个新的工作簿中的工作表一次性全部打印。
我试了好几天,只能逐一生成,逐一打印,而且严重屏闪。
可能我学的时间短,没找到方法。
哪位有好的方法。
谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
pyh6918
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1135 积分:11105 威望:0 精华:2 注册:2008/9/1 10:45:00
  发帖心情 Post By:2009/11/14 16:17:00 [显示全部帖子]

Excel文件,支持三个Verb动作:
Open: 打开,这也是默认的动作。
OpenAsReadOnly:以只读方式打开
Print:打印,完成打印后自动关闭

能不能这样:
proc.Verb = "open"(0)  '打开第一个工作表
有没有这样类似的办法


 回到顶部
帅哥哟,离线,有人找我吗?
pyh6918
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1135 积分:11105 威望:0 精华:2 注册:2008/9/1 10:45:00
  发帖心情 Post By:2009/11/14 16:21:00 [显示全部帖子]

以下是引用ssqq在2009-11-14 16:09:00的发言:

把模板合并成一个表试试,或者尝试专业报表

也是个办法
不过挺难的,有二十多张表,且表结构完全不同,合并起来要花点好时间。


 回到顶部
帅哥哟,离线,有人找我吗?
pyh6918
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1135 积分:11105 威望:0 精华:2 注册:2008/9/1 10:45:00
  发帖心情 Post By:2009/11/15 0:30:00 [显示全部帖子]

多谢杨版和易服兄,明天试试!

 回到顶部
帅哥哟,离线,有人找我吗?
pyh6918
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1135 积分:11105 威望:0 精华:2 注册:2008/9/1 10:45:00
  发帖心情 Post By:2009/11/15 14:10:00 [显示全部帖子]

谢谢各位,这样通过,最大的缺点是屏闪:
Dim Book As New XLS.Book(ProjectPath & "Template\申请.xls") '打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Book.Build() '生成细节区
Book.Save(ProjectPath & "Results\申请.xls") '保存工作簿
Dim Book2 As New XLS.Book(ProjectPath & "Results\申请.xls")
for i as Integer=0 to Book2.Sheets.Count-1
    book2.Sheets.SelectedIndex = i
    Book2.Save(ProjectPath & "Results\申请.xls") '保存工作簿
    Dim Proc As New Process '打开工作簿
    Proc.File = ProjectPath & "Results\申请.xls"
    Proc.Verb = "Print"
    Proc.Start()
next

 回到顶部