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


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

主题：word vba 怎么无法打印出来文件呢？
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110564 积分：562710 威望：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


加好友 发短信
等级：超级版主 帖子：110564 积分：562710 威望：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


加好友 发短信
等级：超级版主 帖子：110564 积分：562710 威望：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


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

app.ActivePrinter = dy.text

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


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

App.Quit放到最后一行

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


加好友 发短信
等级：超级版主 帖子：110564 积分：562710 威望：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


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

根本没有调用打印的代码，打印什么？！

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询