以文本方式查看主题

-  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=84532)
--  作者：lxhmax
--  发布时间：2016/5/4 16:26:00
--  excel页边距
在excel模板中的页面设置里勾选了与页边距对齐和随文挡自动缩放两个选项，在导出来的excel表中这两个选项却没有被勾选到，请问下这个怎么处理？
--  作者：lxhmax
--  发布时间：2016/5/4 16:33:00
--  
还有导出来的字体也会跟模板中的字体不一样，这个怎么解决？
--  作者：大红袍
--  发布时间：2016/5/4 16:38:00
--  

 生成报表后，用vba设置

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
With Ws.PageSetup
    .ScaleWithDocHeaderFooter = True
    .AlignMarginsHeaderFooter = True
End With
app.visible = True

 

http://www.foxtable.com/help/topics/2121.htm