以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教EXCEL表页面设置中字体与字号问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=2459)
--  作者：yangming
--  发布时间：2009/4/15 16:59:00
--  请教EXCEL表页面设置中字体与字号问题
Dim Book As New XLS.Book \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
With Sheet.PrintSetting
     .Header = "&L&\'制表日期:&D &C&D&\' 佳信公司工资表&B&U&E"
   
    .Footer = "&C第&P页,总&N页 &R&[18]&\'制表人:"
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:\\234.xls") \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = "c:\\234.xls"
Proc.Start()

红色部份效果不对,按帮助的说明,应该是:
&"[FontName]" 指定字体名称，例如： &"[黑体]"
&[FontSize] 指定字体大小，例如：&[8]

而在设置时不知如何设置,请贺老师说一下,另外,在设置时是否可以用全局变量,如何用?
--  作者：狐狸爸爸
--  发布时间：2009/4/15 17:23:00
--  
惭愧，这两行我也搞不明白，先别用这两项吧。
--  作者：yangming
--  发布时间：2009/4/15 17:30:00
--  
那页眉页脚中是否可以用全局变量?

&B 字体加粗切换
&I 字体倾斜切换
&U 下划线切换
这三项也用不了,呵
[此贴子已经被作者于2009-4-15 17:32:31编辑过]
--  作者：狐狸爸爸
--  发布时间：2009/4/15 17:32:00
--  
以下是引用yangming在2009-4-15 17:30:00的发言：
那页眉页脚中是否可以用全局变量?


既然是用代码设置，就不存在这个问题啊，因为可以组合起来啊：

 .Header = "&L" & Vars("页眉")

如果是模板，页眉页脚不能引用变量的。
--  作者：yangming
--  发布时间：2009/4/15 18:12:00
--  

我试成功了,呵呵,再次感谢!下班了!88