作者:乔山办公网日期:
返回目录:excel表格制作
问题中的“标题”是在页眉中插入的,在“普通”百视图下不显示页眉和页脚,在“页度面布局”视图下可以显示。
修改页眉的方法:
1、设置为“页面布局”视图中进行编辑:“视图”功能区,“工作簿视图”分组,按“知页面布局”按钮后进入页面页眉,就可以直接编辑页道眉和页脚了;
2、在“页面设置”中设置:“页面布局”功能区,按“页面设置”分组右下回角小按钮,调出“页面设置”对话框,在“页眉/页脚”选项卡,按“自定义答页眉…”和“自定义页脚…”进行相应设置。
Sub test()
Dim s%
For s = 1 To Sheets.Count
With Sheets(s)
Application.PrintCommunication = False
With .PageSetup
.PrintArea = "$B$1:$R$98" '打印范百围
.PrintTitleRows = "$18:$18" '标题行
.FitToPagesWide = 1 '一页宽
.FitToPagesTall = 2 '两页度高
.Orientation = xlPortrait '纵向
.PaperSize = xlPaperA4 'A4纸张回
.BlackAndWhite = True '黑白答
.CenterHorizontally = True '水平居中
End With
Application.PrintCommunication = True
End With
End Sub
在excel2016中,可以在视图—冻结窗格中,锁定表格标题栏知。
步骤:
1、打开excel2016,准备带有标题栏的表格。
2、点击第二行标题栏,道点选专视图选项卡。
3、点击冻结窗格,冻结首行。
4、下拉表格,可见标题栏首行冻结。
5、点击取消冻结窗格。
6、鼠标点击第三行属任意单元格,选择冻结窗格。
7、这次冻结前两行标题栏,“冻结窗格”冻结的,就是点选单元格以上的窗格。
顶端标题行只能一个个工作表设置.
如果工作表特别多,可以使用百下面的度代码将当前工作簿的所有工作表的顶端标题行设置为$1:$1
Sub test()
For Each s In ThisWorkbook.Sheets
s.PageSetup.PrintTitleRows = "$1:$1"
Next
End Sub
回答的很好,这个需要选中专所有工作表,在标签处单击右键选择“查看代码”,将上属述代码复制到出现的空白框里,运行后,返回就可以了。