Word VBA问题打印为PDF

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

仅供参考。。。我之所以需要使用Adobe PDF打印机而不是windows PDF打印机是有原因的（当使用Adobe PDF创建文件时，它会识别字段，而不是windows PDF，这使得发送表单进行esign时速度更快）

'''
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
'''