Foxtable(狐表)用户栏目专家坐堂 → 如何设置EXCEL报表直接指定打印机打印


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

主题:如何设置EXCEL报表直接指定打印机打印

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


加好友 发短信
等级:幼狐 帖子:126 积分:1437 威望:0 精华:0 注册:2009/1/27 10:06:00
如何设置EXCEL报表直接指定打印机打印  发帖心情 Post By:2011/6/17 19:59:00 [只看该作者]

如题 ?

 

      

Dim Book As New XLS.Book(ProjectPath & "Attachments\申请书.xls")
Dim fl As String = ProjectPath & "Reports\申请书.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl

Proc.Verb = "Print" '  直接打印   如何设置为指定打印机打印(窗口打印可以设置指定打印机,就是不知EXCEL报表如何设置                

                    Doc.PrinterName = "EPSON LQ-730K ESC/P2"  指定了打印机
                    doc.Print()    ’窗口打印


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/6/17 23:37:00 [只看该作者]

这个没有办法

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


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57640 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/6/18 8:51:00 [只看该作者]

以下是引用狐狸爸爸在2011-6-17 23:37:00的发言:
这个没有办法


老大你误导人家,用VBA有什么做不到,看我做的例子:


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/6/18 9:18:00 [只看该作者]

图片点击可在新窗口打开查看

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


加好友 发短信
等级:幼狐 帖子:126 积分:1437 威望:0 精华:0 注册:2009/1/27 10:06:00
  发帖心情 Post By:2011/6/18 19:40:00 [只看该作者]

建议  老六将EXCEL 指定打印机也可加进狐表

 回到顶部