将word用打印机打印成pdf的自动保存问题

yuhan4488

各位老师，用VBA将Word直接转化成pdf，快捷方便，但也存在一些问题，如造成一些字符丢失，pdf部分字符不能选取等。
通过打印机打印成pdf，可以有效避免上述问题。但是打印机打印成pdf，需要手工保存pdf的文件名。
请各位老师赐教，如何用VBA实现将word用打印机打印成pdf的自动保存问题，实现以下功能：
1.将word文件打印成同名的pdf文件，如将1.docx打印成1.pdf
2.自动保存到当前路径下

gwjkkkkk

请参考 。。。

yuhan4488

gwjkkkkk 发表于 2023-4-24 21:42
请参考 。。。

老师，您好。非常感谢您提供的代码，非常便捷高效的将word转化成pdf。
老师，有个问题是没有调用打印机功能，直接转变成的pdf在个人电脑上有些字符无法选中。
老师您能帮助启用打印机“另存文件为pdf”的方式，自动保存为pdf。

yuhan4488

问题已解决，感谢“gwjkkkkk”老师
在“gwjkkkkk”老师代码基础上增加了一行printout代码，做一下设置即可：
1.将虚拟打印机Adobe PDF设成默认打印机
2.“打印首选项”=> “Adobe PDF 设置”=> “Adobe PDF输出文件夹” => “浏览”，选择要输出的文件夹。同时将“查看Adobe PDF结果”勾掉。