以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口中显示web  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=143541)

--  作者:cd_tdh
--  发布时间:2019/11/28 9:20:00
--  窗口中显示web

老师,请教一下,怎么让它不显示pdf的工具栏

窗口的afterload代码:

Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim tmp As String =  ProjectPath &  "Attachments\\开票申请表.xls"
Dim rpt As String =  ProjectPath &  "Reports\\开票申请表.pdf"
Dim Book As New XLS.Book(tmp)
Book.Build()
Book.SaveToPDF(rpt) \'保存为pdf文件
wbr.AddRess = rpt

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20191128092235.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2019/11/28 9:24:07编辑过]

--  作者:有点蓝
--  发布时间:2019/11/28 9:36:00
--  
没有办法控制
--  作者:cd_tdh
--  发布时间:2019/11/28 9:50:00
--  

老师,窗口中的表,下面红框内的线有没办法修改颜色呢?如能怎么修改?

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20191128094851.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2019/11/28 10:17:00
--  
Dim t As Table = Forms("窗口3").Controls("Table1").Table
t.grid.Styles("EmptyArea").Border.Color = Color.White