58问答库 > excel中要打印多页如何才能自动填充表头的单元格内的“第几页，共几页” 提问者推荐了您的回答，能分享吗

excel中要打印多页如何才能自动填充表头的单元格内的“第几页，共几页” 提问者推荐了您的回答，能分享吗

2025-05-20 09:45:10

推荐回答（1个）

回答（1）：

你的问题可以具体为：

假定表头是Excel工作表中顶部冻结的前5行。
要求在打印的时候，
打印第一页的时候，在表头的H3单元格填写：1，K3单元格填上：3；
打印第二页的时候，在表头的H3单元格填写：2，K3单元格写上：3；
打印第三页的时候，在表头的H3单元格写入：3，K3单元格写上：3。

使用以下代码即可实现：
Sub Prt()
P = ExecuteExcel4Macro("Get.Document(50)")
ActiveSheet.Range("K3") = P
For I = 1 To P
ActiveSheet.Range("H3") = I
ActiveWindow.SelectedSheets.PrintOut From:=I, To:=I
Next
End Sub
若是固定页数就用页数取代P值