Word VBA发行打印为PDF

如何解决Word VBA发行打印为PDF

我正在尝试使用Adobe PDF打印到pdf（我正在使用Adobe Acrobat Pro DC）。不幸的是，我的word文件使用我想要的文件名生成pdf，但文件大小为0KB，Adobe告诉我该消息，因为不支持该文件或文件已损坏，无法打开文件。我在下面发布了我的代码，但是文件已生成，但是它只显示0KB。由于vba错误，我还不得不取消选中“仅依靠系统字体；不要使用文档字体”，因为在创建PS文件时必须依靠系统字体才能使代码运行。当我手动打印（ctrl + p）并选择要打印的页面时，创建文件没有问题，也不需要取消有关系统字体的Adobe打印机选项。我不确定为什么我在使用宏记录器来首先查看代码时也会遇到VBA代码的这些问题。

仅供参考...我有一个理由需要使用Adobe PDF打印机，而不是Windows PDF打印机（使用Adobe PDF创建的文件比Windows PDF能够识别字段，因此在发送用于签名的表格时可以更快地进行操作）。

'''
Sub print_docs()

Dim mypath As String
Dim print_pages As String

mypath = Environ("UserProfile") & "\Desktop\"

print_path = mypath & primary_name & " Disclosures.pdf"
print_pages = std_pages & "," & state_pages & "," & lender_pages

ActivePrinter = "Adobe PDF"
Application.PrintOut _
    OutputFileName:=print_path,_
    Append:=False,_
    Range:=wdPrintRangeOfPages,_
    Item:= _
    wdPrintDocumentWithMarkup,_
    Copies:=1,_
    Pages:=print_pages,_
    PageType:= _
    wdPrintAllPages,_
    Collate:=True,_
    Background:=True,_
    PrintToFile:=True,_
    PrintZoomColumn:=0,_
    PrintZoomRow:=0,_
    PrintZoomPaperWidth:=0,_
    PrintZoomPaperHeight:=0
End Sub
'''