在VBA中控制IE“打印输出另存为”对话框窗口

Sub ControlIEPrintDialog()
    Dim ie As Object
    Dim doc As Object
    Dim dialog As Object
    
    ' 创建IE对象
    Set ie = CreateObject("InternetExplorer.Application")
    
    ' 打开网页
    ie.Navigate "http://www.example.com"
    
    ' 等待IE加载完成
    Do While ie.Busy Or ie.readyState <> 4
        DoEvents
    Loop
    
    ' 获取网页文档对象
    Set doc = ie.document
    
    ' 触发打印操作
    doc.execCommand "Print"
    
    ' 等待打印对话框出现
    Do While ie.Busy Or ie.readyState <> 4 Or ie.document.getElementById("PrintDialog") Is Nothing
        DoEvents
    Loop
    
    ' 获取打印对话框对象
    Set dialog = ie.document.getElementById("PrintDialog")
    
    ' 控制对话框操作
    ' 例如，设置保存路径和文件名
    dialog.getElementById("SaveAs").Value = "C:\PrintOutput.pdf"
    
    ' 点击保存按钮
    dialog.getElementById("SaveButton").Click
    
    ' 关闭IE对象
    ie.Quit
End Sub