Foxtable(狐表)用户栏目专家坐堂 → word vba 怎么无法打印出来文件呢?


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

主题:word vba 怎么无法打印出来文件呢?

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110762 积分:563742 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/2 17:30:00 [显示全部帖子]

看不出什么问题,看看打印执行没有

msgbox(1)
doc.PrintOut(ActivePrinter:=dy.text)
msgbox(2)

如果执行了就是打印机和打印驱动的问题了

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110762 积分:563742 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/3 8:53:00 [显示全部帖子]


Dim Ws As MSExcel.WorkSheet = 
doc.WorkSheets(1)
Ws.PrintOut(ActivePrinter:=dy.text)

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110762 积分:563742 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/3 11:23:00 [显示全部帖子]

哦,看错了,试试

                 Dim doc As Object = app.Documents.Open(file)
                    app.ActiveWindow.Selection.WholeStory
doc.ActivePrinter = dy.text
                    doc.PrintOut

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110762 积分:563742 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/3 12:04:00 [显示全部帖子]

app.ActivePrinter = dy.text

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110762 积分:563742 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/3 14:23:00 [显示全部帖子]

App.Quit放到最后一行

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110762 积分:563742 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/4 20:09:00 [显示全部帖子]

懂不懂什么叫最后一行?
……
                abc=abc+1
                End If
            End If   
        Next
    End If
End If
App.Quit


 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110762 积分:563742 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/5 9:25:00 [显示全部帖子]

根本没有调用打印的代码,打印什么?!

 回到顶部