老师，你好！请教下面代码如何添加页眉字体及大不的代码，

Sheet.PrintSetting.Header = "&L&D &C&F"

 看这里 http://www.foxtable.com/webhelp/scr/1315.htm

试了几次都不行，比如中间字体改为黑体，字号14，代码怎么写，谢谢！

比如

Dim Book  As New XLS.Book  \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
With Sheet.PrintSetting
     \'页眉左边为日期,中间为时间,右边为表名
    .Header = "&L&D &C&""黑体,加粗""&18&T &R&A"
     \'在页脚右边打印页号和总页数
    .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("c:\\reports\\test.xls") \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = "c:\\reports\\test.xls"
 Proc.Start()