单元格输出当前页码和总页码，并支持多页自动打印

jave000

抄自两个帖子，代码源自zjdh和准提部林两位侠圣，包含了多页打印和单元格内输出页码，拼凑后可以运行但有新的问题：
https://club.excelhome.net/thread-1615118-1-1.html
https://club.excelhome.net/thread-651822-4-1.html

因为都用来打印PDF，所以不考虑双面打印的问题。因为封面都是一页，所以默认都是P+1。
正文含有中文英文两处单元格，封面也有两处。所以总共要输出八个单元格的内容。此处我不会简化，但运行没问题。
测试发现如果删除from:=I to:=I，第几页就不会刷新，全都是1，且总共P+1页内容会打印P+1份，每份都是P+1页。
如果保留from:=I to:=I，第几页共几页都没问题，但P+1页会强制拆分打印成P+1份单1页PDF。
主要求助如何解决强制拆分打印成P+1份单1页PDF的问题。


Sub DesignPrint()
    P = ExecuteExcel4Macro("Get.Document(50)")
    Sheet1.Range("H3") = P+1
    Sheet1.Range("J3") = P+1
    Sheet2.Range("L5") = P+1
    Sheet2.Range("N5") = P+1
    For I = 1 To P+1
        Sheet1.Range("I3") = I
        Sheet1.Range("K3") = I
        Sheet2.Range("M5") = I
        Sheet2.Range("O5") = I
           Sheets(Array(Sheet1.Name, Sheet2.Name)).Printout From:=I,to:=I
           ActiveSheet.Select
    Next
End Sub

vistababy

复杂了，我不懂

jave000

抄来一段解释



Range.PrintOut 方法
打印对象。
语法

表达式.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName)

表达式   一个代表 Range 对象的变量。

参数

名称 必选/可选 数据类型 描述
From 可选 Variant 打印的开始页号。如果省略此参数，则从起始位置开始打印。  
To 可选 Variant 打印的终止页号。如果省略此参数，则打印至最后一页。
Copies 可选 Variant 打印份数。如果省略此参数，则只打印一份。
Preview 可选 Variant 如果为 True，Microsoft Excel 将在打印对象之前调用打印预览。如果为 False（或省略该参数），则立即打印对象。
ActivePrinter 可选 Variant 设置活动打印机的名称。
PrintToFile 可选 Variant 如果为 True，则打印到文件。如果没有指定 PrToFileName，Microsoft Excel 将提示用户输入要使用的输出文件的文件名。  
Collate 可选 Variant 如果为 True，则逐份打印多个副本。
PrToFileName 可选 Variant 如果 PrintToFile 设为 True，则该参数指定要打印到的文件名。

返回值
Variant

说明


From 和 To 所描述的“页”指的是要打印的页，并非指定工作表或工作簿中的全部页。

准提部林

問了半世紀, 還是沒解決???
不要只來代碼讓人猜, 至少上傳檔案, 並詳細說明~~

是不是???
兩張或更多工作表一起打印, 產生一個pdf檔, 並標示"第?頁/共?頁",
總頁數是合部加起來的, 頁次依次累君???

那之前同時選取多張工作表打印, 不是可以嗎???

jave000

准提部林 发表于 2023-4-6 12:22
問了半世紀, 還是沒解決???
不要只來代碼讓人猜, 至少上傳檔案, 並詳細說明~~

之前的多选打印完美实现了。
只是后来又找单元格输出页码，放置到重复表头上打印，找到代码也能用了。
然后想合二为一，目前基本实现了，只是from i to i会引发每一页都生成一份PDF，新的困扰。