以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  WebBrowser 打印  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=150523)

--  作者:happy2010
--  发布时间:2020/6/1 10:29:00
--  WebBrowser 打印
我在窗口的WebBrowser控件显示生成的Excel报表进行打印,会出现《<>》 sheet1隔页打印,请教老师如何取消或者控制
--  作者:有点蓝
--  发布时间:2020/6/1 10:33:00
--  
写了什么打印代码?
--  作者:happy2010
--  发布时间:2020/6/1 10:40:00
--  
打印按钮
Dim brw As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
brw.Print

AfterLoad
Dim tmp As String  = ProjectPath & "Attachments\\试驾车处理.xls" 
Dim mht As String = ProjectPath & "Reports\\试驾车处理.mhtml"
Dim rpt As New XLS.Book(tmp) 
rpt.Build()
rpt.Sheets(0).Rows(0).Visible = False \'隐藏第一个空行
rpt.SaveToMHT(mht)
e.Form.Controls("WebBrowser1").Address = mht

--  作者:有点蓝
--  发布时间:2020/6/1 10:44:00
--  
这种打印行为没有办法控制

建议同步保存为xls报表,然后使用vba打印