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


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

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

美女呀,离线,留言给我吧!
yangming
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2009/11/14 15:47:00 [显示全部帖子]

看来不行

 回到顶部
美女呀,离线,留言给我吧!
yangming
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2009/11/14 16:59:00 [显示全部帖子]

试试这样行不?  我家里没有打印机,无法试

Dim Book As New XLS.Book("c:\aaa.xls") '打开模板
Dim n As Integer
For n = 1 To 3
book.Sheets.SelectedIndex = n
Book.Save("c:\aaa.xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = "c:\aaa.xls"
Proc.Verb = "Print" '指定动作
Proc.Start()
Next

 回到顶部
美女呀,离线,留言给我吧!
yangming
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2009/11/15 14:39:00 [显示全部帖子]

屏闪的问题是没有办法的,毕竟是几种状态的操作太多了

 回到顶部