以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- WebBrowser 打印 (http://foxtable.net/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打印
|