EXCEL多个工作表页码连续设置以及与PDF的转换之总页数问题

最新推荐文章于 2025-06-19 14:55:54 发布

原创

最新推荐文章于 2025-06-19 14:55:54 发布 · 2.7k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#excel #pdf #vba

本文介绍了如何在Excel中自动调整工作表的页面设置，特别是针对多张工作表的页码连续性和起始页码管理，以及如何使用代码生成PDF时包含页码信息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

时间：2017-06-13 17:00:08

第几页把页面设置按以下要求操作。

（1）若是工作表太多，比如超过20个，一个个数下来也够呛的。
（2）页码连续与否与导成PDF也没有关系
（3）EXCEL在常规状态下，“页面设置”—“页面”—“起始页码”是“自动”，当选择多个表打印时，一般来说页码会自动重1编号，并自动顺延下去。若页码并非从1开始，说明打印的第一个工作表设置的起始页码不是“自动”或“1”
（4）若选择多个表打印，且每张表都须从1编号的话，可以在每张表的“页面设置”里将“起始页码”设置为“1”。若想从任何号（比如第100页起）编起，则进行类似设置

共计X页

直接用代码生成，生成思路，取得当前sheet的总页数直接写到对应设置。

For Each Sht In ThisWorkbook.Worksheets
        If Sht.Name <> "基本信息" And Sht.Name <> "通信线缆" And Sht.Name <> "电力电缆" And Sht.Name <> "服务费明细" And (InStr(Sht.Name, "NO") = 0 And InStr(Sht.Name, "no") = 0) Then
'            Debug.Print Sht.Name
            nnn = nnn + 1
            ReDim Preserve MyStr(nnn - 1)
            My