IE打印问题。急！

Question

光用vb很难做到！脚本更不可能！
只有mfc去写activex

Answer 1

问题: 如何将控制 WebBrowser 控件打印网页时的页眉、页脚等?
解答: 其实就是对 IE 的打印控制,在注册表中:
      HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\PageSetup
      footer
      header
      ...
      Private Sub Form_Load()
              WebBrowser1.Navigate "about:blank"
      End Sub
      Private Sub Command1_Click()
              WebBrowser1.ExecWB OLECMDID_PAGESETUP, OLECMDEXECOPT_DODEFAULT
      End Sub
      '引用 Windows Script Host Object 写注册表
      Private Sub Command2_Click()
              Dim xx As New IWshRuntimeLibrary.WshShell
              'xx.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\PageSetup\footer", "已改为: " & xx.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\PageSetup\footer")
              xx.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\PageSetup\footer", ""
             'xx.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\PageSetup\header", "已改为: " & xx.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\PageSetup\header")
             'xx.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\PageSetup\header", ""
      End Sub

Answer 2

'引用 Microsoft Internet Controls
Dim x As New SHDocVw.WebBrowser
x.ExecWB OLECMDID_PRINT,OLECMDEXECOPT_DODEFAULT