主题：冻结

With Ws.PageSetup

    '设置打印区域

    .PrintArea = "A1:CX36"   '打印工作表的指定区域

    .PrintArea = Ws.UsedRange.Address   '打印工作表的使用区域

    .PrintTitleColumns = Ws.Columns("A:B").Address   '打印列标题(在每一页的左边重复出现)

    '设置页眉

    .LeftHeader = "打印日期: &D" '左页眉,&D表示日期

    .RightHeader = "打印者: " & "林文生" '右页眉

    .CenterHeader = "&""隶书,常规""&35 资产负债表 " & chr(10) & "&10 " & vars("bb")  & " 至 " & vars("cc")

    .LeftFooter = "文件: &F  &A" '左页脚,&F表示文件名,&A表示工作表名

    .CenterFooter = ""   '中页脚为空

    .RightFooter = "第 &P 页  共 &N 页"  '右页脚

End With