Excel里用vba怎么调整页面设置里的页眉/脚,打印标题等（工作表），急求帮助！

[gillianhu]

如题。
另外，有没有关于excel里面的菜单如：文件-〉页面设置，属性设置等vba函数手册？因需要大量的关于诸如格式字体冻结窗口一类的vba设置方法。

[txz2003]

Sub SetPrint()
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$2" '顶端打印标题行区域
.LeftHeader = "" '设置左边页眉显示
.CenterHeader = "" '设置居中页眉显示
.RightHeader = "" '设置右边页眉显示
.LeftFooter = "" '设置左边页脚显示
.CenterFooter = "第 &P 页，共 &N 页" '设置居中页脚显示
.RightFooter = "" '设置右边页脚显示
.LeftMargin = 1 * 567 '设置左边距为1厘米
.RightMargin = 1.5 * 567 '设置右边距为1.5厘米
.TopMargin = 2.2 * 567 '设置上边距为2.2厘米
.BottomMargin = 2.1 * 567 '设置下边距为2.1厘米
.PaperSize = xlPaperA4 '设置纸张大小
End With
End Sub

楼主，看看还有什么问题。

[txz2003]

Sub SetFont(DanYuanGe As String)
Range(DanYuanGe).Select
With Selection.Font
.Name = "黑体" '设置字体
.Size = 16 '设置字号
End With
With Selection
.HorizontalAlignment = xlCenter '设置水平对齐方式为居中
.VerticalAlignment = xlTop '设置垂直对齐方式为靠上
End With
End Sub

'用法 SetFont("A1")或SetFont("A1:D1")或SetFont("A:B")这里指A列和B列