VBA设置PDF指定页的打印方向出错

杨工excelhome

Public Sub SetPDFPageOrientation()
    ' 定义Acrobat对象
    Dim AcroApp As Object
    Dim PDDoc As Object   
    ' 创建Acrobat对象
    On Error Resume Next
    Set AcroApp = CreateObject("AcroExch.App")
    On Error GoTo 0   
    ' 打开PDF文件
    If AcroApp.OpenDoc("C:\path\to\your\file.pdf") = True Then‘-----------------此行VBA运行报错’
        Set PDDoc = AcroApp.GetDoc        
        ' 获取第一页
        Dim Page As Object
        Set Page = PDDoc.AcquirePage(0)        
        ' 设置横向打印
        Page.SetRotation 2 ' 2 代表横向，1 代表纵向        ‘-----------------此行VBA运行报错
        ' 保存更改
        PDDoc.Save(1, "C:\path\to\your\file_modified.pdf")        
        ' 关闭文档
        PDDoc.Close        
        ' 退出Acrobat
        AcroApp.Exit        
        ' 释放对象
        Set Page = Nothing
        Set PDDoc = Nothing
        Set AcroApp = Nothing
    End If
End Sub
请高人指点，能有代码实现页面旋转也行。感谢