网页打印问题，关于打印窗口的弹窗

养吾剑

For Each xl In ie.Document.all.tags("input")
        If xl.Value Like "打印*" Then xl.Click

    Next

有一个a标签可以弹出打印弹窗，之后需要按确定，弹窗后按确定的API可以用sendmessge 解决，但弹出弹窗后程序处于中断等待状态，无法允许，自然也无法通过API搞定弹窗了。

使用Application.SendKeys "^p", 一样可以弹出打印窗口，而且程序继续运行，但有个劣势是只能在网页激活界面才能打印，失去了后台打印的功能，而且中途要是忽然点击到什么地方，程序立马就乱了，这种情况下意外情况太多，不太友好。

请问各位大神是怎么解决网页打印问题的?