Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 4925|回复: 10

亟待解决批量打印问题?

[复制链接]
发表于 2012-1-4 20:09 | 显示全部楼层 |阅读模式
5学分
本帖最后由 lsggjie 于 2012-1-7 20:39 编辑

附件中打开“保护Word文件(COM)”,选择“隐藏文件内容.....",点击确认,然后点击“退出”。
打开“一键打印测试”文件夹内的“一键打印测试”文件,点击“一键打印”,就会出现输入密码提示,问题就是如何实现自动输入密码,然后自动打印。

保护Word文件.rar

78.02 KB, 下载次数: 0

发表于 2012-1-4 20:37 | 显示全部楼层
不会。
建议上附件,高手们可能才好理解你的问题。

瞎猜下,AppActivate Ret    '怎么不能激活密码窗口?   
这里AppActivate后面的ret要是字符串,实际上,ret是字符串么
回复

使用道具 举报

 楼主| 发表于 2012-1-4 20:50 | 显示全部楼层
本帖最后由 lsggjie 于 2012-1-4 20:50 编辑

实在不好上传附件,因为问题出在word模板文件的VBA工程密码上
先打开word,然后打开visual basic编辑器,然后给normal工程加密;然后把上段代码复制到excel模块中,运行“一键打印”,就会提示需要输入normal工程密码。问题出现在(AppActivate Ret    '    SendKeys "123456" & "~", True     )不能把密码输进去?
如果word-normal工程没有密码的话,运行还是正常的。
回复

使用道具 举报

 楼主| 发表于 2012-1-4 21:04 | 显示全部楼层
Select 发表于 2012-1-4 20:37
不会。
建议上附件,高手们可能才好理解你的问题。

那么如何激活出现的密码输入提示窗口?
回复

使用道具 举报

发表于 2012-1-4 21:15 | 显示全部楼层



1)对应你的代码,ret应该是字符串才是吧?为什么你是Dim Ret As Long


2)没密码正常的话,没密码的代码,比1楼少些什么呀?


3)1楼代码,是word里的,还是excel里的?全部吗?是先运行哪个过程?


4)如果数据需要保密,就替换下内容,再上传
回复

使用道具 举报

 楼主| 发表于 2012-1-4 21:40 | 显示全部楼层
附件中打开“保护Word文件(COM)”,选择“隐藏文件内容.....",点击确认,然后点击“退出”。
打开“一键打印测试”文件夹内的“一键打印测试”文件,点击“一键打印”,就会出现输入密码提示,问题就是如何实现自动输入密码,然后自动打印。

保护Word文件.rar

78.02 KB, 下载次数: 12

回复

使用道具 举报

发表于 2012-1-5 09:46 | 显示全部楼层
lsggjie 发表于 2012-1-4 21:40
附件中打开“保护Word文件(COM)”,选择“隐藏文件内容.....",点击确认,然后点击“退出”。
打开“一键打 ...

不会。我觉得有了这些内容,高手好理解你的问题些。

我把word文件设置工程密码"abc",运行一键打印测试.xls中的按钮,可打印,没提示? 新建 Microsoft Office Word 文档.rar (7.77 KB, 下载次数: 0)
回复

使用道具 举报

 楼主| 发表于 2012-1-5 13:15 | 显示全部楼层
不是word文件本身的工程设置密码,而是word模板文件normal工程加密(可以用附件中“word文件保护(COM)保护后进行加密,亦可以手动加密),如图:
未命名.PNG

评分

参与人数 1 +2 收起 理由
Select + 2 我不会,希望高手能帮到你

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2012-1-6 18:34 | 显示全部楼层
能不能解决啊,急用
回复

使用道具 举报

 楼主| 发表于 2012-1-6 21:12 | 显示全部楼层
能不能解决啊,急用
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-5-23 19:47 , Processed in 0.310057 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表