求助：通过VBA调用JavaScript实现PDF多页拼版打印并保存的问题

原有代码的核心错误 #

• JS语法错误：printerName赋值的双引号转义错误，导致JS代码无法正常解析
• 常量引用错误：nUpPageOrders的合法枚举值没有Horizontal，应使用官方指定的HorizontalLeftToRightTopToBottom
• 功能逻辑错误：直接调用print()仅会触发打印任务，没有配置输出为PDF的相关参数，无法实现另存为拼版后单页PDF的需求
• 进程残留问题：代码运行后没有主动关闭打开的PDF文档与Acrobat应用，会残留后台进程占用文件

修正后可运行代码 #

Sub PDF2x2拼版输出()
    Dim app As AcroApp
    Dim avdoc As AcroAVDoc
    Dim aform As AFormApp
    Dim srcPath As String, outputPath As String
    
    ' 配置文件路径，自行修改
    srcPath = "C:\1.pdf"
    outputPath = "C:\拼版后_1.pdf"
    
    Set app = CreateObject("Acroexch.app")
    app.Show ' 调试阶段可显示界面，稳定后可注释该行隐藏运行
    Set avdoc = CreateObject("AcroExch.AVDoc")
    Set aform = CreateObject("AFormAut.App")
    
    If avdoc.Open(srcPath, "") Then
        ' 拼接合法的JS代码
        Dim js As String
        js = "pp = this.getPrintParams();" _
        & "pp.printerName = ""Adobe PDF"";" _ ' 指定为Adobe PDF虚拟打印机
        & "pp.outputFileName = """ & outputPath & """;" _ ' 指定输出路径
        & "pp.bSilent = true;" _ ' 禁止弹出打印确认、保存路径弹窗
        & "pp.pageHandling = pp.constants.handling.nUp;" _
        & "pp.nUpPageOrders = pp.constants.nUpPageOrders.HorizontalLeftToRightTopToBottom;" _
        & "pp.nUpNumPagesH = 2;" _
        & "pp.nUpNumPagesV = 2;" _
        & "pp.nUpPageBorder = true;" _
        & "pp.pageRange = [0, 3];" _ ' 指定处理前4页，可根据需求修改页码（从0开始计数）
        & "this.print(pp);"
        
        aform.Fields.ExecuteThisJavaScript js
        
        ' 关闭文档
        avdoc.Close True
    End If
    
    ' 释放对象，清除后台进程
    app.Exit
    Set aform = Nothing
    Set avdoc = Nothing
    Set app = Nothing
End Sub

运行前置要求 #

• 必须安装完整版Adobe Acrobat Pro，免费的Acrobat Reader无对应API调用权限
• 打开Excel VBA编辑器，依次点击「工具-引用」，勾选对应版本的Adobe Acrobat xx.x Type Library后再运行代码
• 确保输入的源PDF路径、输出路径均存在，且输出路径无同名文件占用

内容的提问来源于stack exchange，提问作者carlos_ruiz