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，且不缺字的方法。
: 感激不盡！