Private Sub print_Click(Index As Integer)
On Error Resume Next
WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT, 0, 0 '打印,有提示
WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, 0, 0 '直接打印
WebBrowser1.ExecWB OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT, 0, 0 '打印预览
End Sub
以webbrowser为例
1900

被折叠的 条评论
为什么被折叠?



