共5 条记录, 每页显示 10 条, 页签: [1]

标题：请教EXCEL表页面设置中字体与字号问题

1楼

yangming 发表于：2009/4/15 16:59:00

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]

而在设置时不知如何设置,请贺老师说一下,另外,在设置时是否可以用全局变量,如何用?

2楼

狐狸爸爸 发表于：2009/4/15 17:23:00

惭愧，这两行我也搞不明白，先别用这两项吧。

3楼

yangming 发表于：2009/4/15 17:30:00

那页眉页脚中是否可以用全局变量?

&B	字体加粗切换
&I	字体倾斜切换
&U	下划线切换

这三项也用不了,呵

[此贴子已经被作者于2009-4-15 17:32:31编辑过]

4楼

狐狸爸爸 发表于：2009/4/15 17:32:00

以下是引用yangming在2009-4-15 17:30:00的发言：
那页眉页脚中是否可以用全局变量?

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

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

如果是模板，页眉页脚不能引用变量的。

5楼

yangming 发表于：2009/4/15 18:12:00

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

共5 条记录, 每页显示 10 条, 页签: [1]