在窗口中加入一个WebBrowser控件和Button控件，窗口的AfterLoad事件代码设置为：
Dim tmp As String = ProjectPath & "Attachments\资料卡.xls"Dim rpt As String = ProjectPath & "Reports\资料卡.xls"Dim Book As New XLS.Book(tmp)Book.Build() Book.Save(rpt)e.Form.Controls("WebBrowser1").AddRess = rpt
按钮的Click事件代码设置为：
e.Form.Controls("WebBrowser1").Print()
这样一打开窗口，就会自动在窗口的WebBrowser控件显示生成的Excel报表，单击按钮则可以打印此报表。
上面是帮助中的代码，我的问题是上面的打印操作会弹出打印对话框，如果我想实现按钮的Click事件直接打印，不用弹出打印对话框，代码应该如何编写？求教各位了！
加好友 
发短信
Post By：2014/2/25 22:39:00 [显示全部帖子]
