以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助,高速导出excel表无法去除外边框  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=85257)

--  作者:百灵
--  发布时间:2016/5/21 14:25:00
--  求助,高速导出excel表无法去除外边框
利用狐表工具栏高速导出excel表,打印时一直有个外边框,用excel网格线工具无法去除,这个能解决吗?不然导出表上方插入标题行时,标题行始终在边框内。
--  作者:Hyphen
--  发布时间:2016/5/21 14:34:00
--  
没有发现这种情况,上传例子说明
--  作者:百灵
--  发布时间:2016/5/21 14:37:00
--  
如图
图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看,无论在excel里如何操作,插入的标题行始终在这个框内

--  作者:Hyphen
--  发布时间:2016/5/21 14:57:00
--  
请上例子
--  作者:百灵
--  发布时间:2016/5/21 15:23:00
--  
新建一个项目,直接用工具栏高速导出excel,然后在excel表上面插入一行,输入标题,打印预览一下,看是不是我上传的图上那样,在标题行上的网络线是无法去掉的
--  作者:百灵
--  发布时间:2016/5/21 15:25:00
--  
我用vba设置代码去除也不行。代码如下:Dim Rg As MSExcel.Range = Ws.Range("A1:q1")
Rg.BorderAround(MSExcel.XlLineStyle.xlLineStyleNone) 
With Rg11.Borders(MSExcel.XlBordersIndex.xlEdgeTop)
   .LineStyle = MSExcel.XlLineStyle.xlLineStyleNone
End With


--  作者:Hyphen
--  发布时间:2016/5/21 16:08:00
--  
在打印设置中处理

Dim Book As New XLS.Book("f:\\55.xls") \'打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet.PrintSetting.PrintGridlines = False
Book.Save("f:\\55.xls")


--  作者:百灵
--  发布时间:2016/5/21 23:26:00
--  
谢谢