EXCEL多个工作表页码连续设置以及与PDF的转换之总页数问题 | 您所在的位置:网站首页 › 页脚的总页数 › EXCEL多个工作表页码连续设置以及与PDF的转换之总页数问题 |
时间: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) MyStr(nnn - 1) = Sht.Name If Sht.Name "表一" And Sht.Name "表二" And Sht.Name "表五" Then With Worksheets(Sht.Index).PageSetup '第&[页码]页,共&[总页数]页 If Worksheets(Sht.Index).PageSetup.Pages.Count > 1 Then '取得总页数 Worksheets(Sht.Index).PageSetup.Pages.Count .RightHeader = "&""仿宋_GB2312,常规""&10第&P页,共" & Worksheets(Sht.Index).PageSetup.Pages.Count & "页" Else .RightHeader = "&""仿宋_GB2312,常规""&10第全页" End If End With End If End If Next其实还可以转出PDF时直接用代码重新生成第几页,共几页 |
CopyRight 2018-2019 实验室设备网 版权所有 |