- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助，高速导出excel表无法去除外边框 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85257)
-- 发布时间：2016/5/21 14:25:00
-- 求助，高速导出excel表无法去除外边框
利用狐表工具栏高速导出excel表，打印时一直有个外边框，用excel网格线工具无法去除，这个能解决吗？不然导出表上方插入标题行时，标题行始终在边框内。
-- 发布时间：2016/5/21 14:34:00
--
没有发现这种情况，上传例子说明
-- 发布时间：2016/5/21 14:37:00
--
如图
此主题相关图片如下：1.jpg
，无论在excel里如何操作，插入的标题行始终在这个框内-- 发布时间：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
-- 发布时间：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
--
谢谢