Refer:
https://msdn.microsoft.com/zh-tw/library/office/ff840681(v=office.15).aspx
修改了一点范例，测试大量打印转存OK，字型的部分再麻烦你测试
记得先把 Microsoft Print to PDF 设定成默认打印机
Sub PrintAlltoPDF()
'请修改路径到工作目录下，附档名依档案修改
adoc = Dir("D:\Base\Download\docx\*.docx")
Do While adoc <> ""
Application.PrintOut FileName:=adoc, OutputFileName:= _
Replace(adoc,".docx", ".pdf")
adoc = Dir()
Loop
End Sub
※ 引述《incandescent (随便)》之铭言：
: 软件: MS office 2013
: 版本:2013
: 至少有200个档案
: 而且有特殊字型，之前用word内建的另存新档转为pdf都会缺字，
: 要用虚拟打印pdf才能保留字型。
: 想请教一下
: 怎么一口气沿用档名，全部转为pdf，且不缺字的方法。
: 感激不尽！