问两个webBrowser控件的问题，希望大家帮忙，实在很急！

[tobeatiger]

1.怎么实现打印（打印webBrowser控件里面的网页），象右键“打印”那样的功能？
2.当网页的链接是打开新窗口时，我怎么控制它在我自己设计的窗口打开而不是在
ie 打开呢 ？（这两个问题实在是很急用，希望大家帮忙解决）

[tobeatiger]

没有人回答吗 ？真的很急啊！！
尽量施舍吧 ！！
一个问题 50 分 。

[online]

Private Sub mnuprint_Click()
On Error Resume Next
Screen.MousePointer = vbHourglass
DoEvents

WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER
If Err.Number <> 0 Then
MsgBox "无法开启打印机!"
End If
Screen.MousePointer = vbDefault
End Sub

[online]

Private Sub mnupreview_Click()
On Error Resume Next
Screen.MousePointer = vbHourglass
DoEvents

WebBrowser1.ExecWB OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_PROMPTUSER
If Err.Number <> 0 Then
MsgBox "无法完成文件预览!"
End If
Screen.MousePointer = vbDefault
End Sub

[online]

Private Sub mnusetprint_Click()
On Error Resume Next
Screen.MousePointer = vbHourglass
DoEvents

WebBrowser1.ExecWB OLECMDID_PAGESETUP, OLECMDEXECOPT_PROMPTUSER
If Err.Number <> 0 Then
MsgBox "无法设定打印机！"
End If
Screen.MousePointer = vbDefault
End Sub

[online]

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)

'使用自己的窗口代替ie窗口
Dim NewWindow As Form1
Set NewWindow = New Form1
NewWindow.Show
Set ppDisp = NewWindow.WebBrowser1.Object

End Sub