用vba打印屏幕PDF文件

Sub PrintScreenToPDF()
    Dim acrobatApp As Object
    Dim avDoc As Object
    Dim pdDoc As Object
    
    ' 创建Adobe Acrobat对象
    Set acrobatApp = CreateObject("AcroExch.App")
    
    ' 打开PDF文件
    Set avDoc = CreateObject("AcroExch.AVDoc")
    If avDoc.Open("C:\Path\To\Your\File.pdf", "") Then
        Set pdDoc = avDoc.GetPDDoc
        
        ' 打印PDF文件
        pdDoc.PrintPages 0, pdDoc.GetNumPages - 1, 0, 0
        
        ' 关闭PDF文件
        pdDoc.Close
    End If
    
    ' 退出Adobe Acrobat应用程序
    acrobatApp.Exit
    Set acrobatApp = Nothing
End Sub