以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何设置页眉页脚的字体?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=73821)
--  作者：jerzhh
--  发布时间：2015/8/27 14:41:00
--  [求助]如何设置页眉页脚的字体?

Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
With Sheet.PrintSetting
    .Footer = "&L&演示 &C第&P页,总&N页"
End With

请问如何设置页眉页脚的字体?

[此贴子已经被作者于2015/8/27 14:43:07编辑过]
--  作者：大红袍
--  发布时间：2015/8/27 14:52:00
--  
Dim Book As New XLS.Book \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
With Sheet.PrintSetting
    \'页眉左边为日期,中间为时间,右边为表名
    .Header = "&L&D &C&T &R&""隶书,常规""&20 数据分析表"             \'中页眉,并将字体设置为隶书和20号字大小
    \'在页脚右边打印页号和总页数
    .Footer = "&R第&P页,总&N页"
End With
For i As Integer = 0 To 100 \'向工作表的单元格中设置值
    Sheet(i, 0).Value = (i + 1) * 10
    Sheet(i, 1).Value = (i + 1) * 100
    Sheet(i, 2).Value = (i + 1) * 1000
Next
Book.Save("d:\\reports\\test.xls") \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = "d:\\reports\\test.xls"
Proc.Start()
--  作者：有点蓝
--  发布时间：2015/8/27 15:04:00
--  
http://www.foxtable.com/help/index.html?n=1315.htm
&"[FontName]"指定字体名称，例如： &"[黑体]"
&[FontSize]指定字体大小，例如：&[8]
--  作者：jerzhh
--  发布时间：2015/8/27 15:10:00
--  

2楼的用法才是正确的。

 

&"[FontName]" 指定字体名称，例如： &"[黑体]"
&[FontSize] 指定字体大小，例如：&[8]

 

方括号不能加，加了反而不能设字体。
--  作者：有点蓝
--  发布时间：2015/8/27 15:15:00
--  
这样啊，没试过