打印整个工作簿时如何同时显示在整个工作簿和各工作表中是第几页/共几页？

天道佩恩

求助打印整个工作簿时如何既能显示在本工作表中,是第几页/共几页，又能显示在整个工作簿是第几页/共几页。工作簿有很多工作表，每个工作表长短不一。

3190496160

要看具体的表格解雇而定，上传附件来看看吧

天道佩恩

附件已上传

天道佩恩

3190496160 发表于 2023-3-7 09:29
要看具体的表格解雇而定，上传附件来看看吧

附件已上传

天道佩恩

Sub 定义页码及总页数名称()
ActiveWorkbook.Names.Add Name:="ColFirst", RefersToR1C1:= _
    "=GET.DOCUMENT(61)" '判断打印顺序的设置类型
ActiveWorkbook.Names.Add Name:="ThisPageNo", RefersToR1C1:= _
    "=IF(ISNA(MATCH(ROW(),GET.DOCUMENT(64))),1,MATCH(ROW(),GET.DOCUMENT(64))+1)" '获取当前页数
ActiveWorkbook.Names.Add Name:="PagesCount", RefersToR1C1:= _
    "=GET.DOCUMENT(50)" '获取总页数
End Sub
Sub 批量设置页脚()
' 批量设置页脚 Macro
' 宏由 Bing 录制，时间: 2023-3-9
'
Dim ws As Worksheet '定义一个工作表对象
For Each ws In ActiveWorkbook.Worksheets '遍历工作簿中的所有工作表
    With ws.PageSetup '访问工作表的页面设置属性
        .CenterFooter = "&p/&n" '设置中页脚为当前页数/总页数
        .RightFooter = "=TEXT(ThisPageNo,""第0页 "")&TEXT(PagesCount,""共0页"")" '设置右页脚为公式
    End With
Next ws '继续下一个工作表
End Sub