请问各位大虾一个关于WebBrowser控件的问题?

jackjack 2002-05-10 06:42:48
在用WebBrowser控件打印其所装载页面时,
如何才能让打印出来的页面中
右上角的页眉 ---页码,1/2--- 类似的字样去掉?
还有当前页最下面的页角 ---file://E:\aaaa\bbb\ccc.htm--- 类似的字样去掉?
请给出具体的代码?
...全文
102 点赞 收藏 3
写回复
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
playyuer 2002-05-10
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\PageSetup
footer
header
...
...

Private Sub Command2_Click()
'引用 Windows Script Host Object 写注册表
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
Private Sub Form_Load()
WebBrowser1.Navigate "about:blank"
End Sub
Private Sub Command1_Click()
WebBrowser1.ExecWB OLECMDID_PAGESETUP, OLECMDEXECOPT_DODEFAULT
End Sub



回复
jackjack 2002-05-10
能不能程序设置页眉、页脚为空,而不弹出页面设置对话框?
playyuer,你可以告诉我这些资料在哪获得?
回复
playyuer 2002-05-10
Private Sub Form_Load()
WebBrowser1.Navigate "about:blank"
End Sub
Private Sub Command1_Click()
WebBrowser1.ExecWB OLECMDID_PAGESETUP, OLECMDEXECOPT_DODEFAULT
End Sub

即: IE 菜单 -> 文件 -> 页面设置
回复
发动态
发帖子
控件
创建于2007-09-28

1422

社区成员

VB 控件
申请成为版主
社区公告
暂无公告