如何用函数批量设置工作簿下电子表格每页都有标题行？

Question

一个电子工作簿下面有50个工作表，如何能批量设置成每个表格打印页面时每页都打印标题栏，单独工作表设置打印标题标栏的方法我会，如何能批量设置，每个子表的标题栏是1-5行，

Answer 1

使用excel中的VBA宏代码可一键实现该功能。

代码文本如下：

Sub 宏1()

For i = 1 To Sheets.Count

Sheets(i).Select

Call 设置打印标题

Next

End Sub

Sub 设置打印标题()

    Application.PrintCommunication = False

    With ActiveSheet.PageSetup

        .PrintTitleRows = "$1:$5" '标题行设置

        .PrintTitleColumns = ""

    End With

    Application.PrintCommunication = True

    ActiveSheet.PageSetup.PrintArea = "$1:$100" '打印区域设置

    Application.PrintCommunication = False

End Sub

Answer 2

Sub 宏1()
'
' 宏1 宏
'
Dim i&
For i = 1 To 3'自己改范围
'
With Sheets(i).PageSetup
.PrintTitleRows = "$1:$5"
.PrintTitleColumns = ""
End With

Next i
End Sub本回答被提问者采纳