[已解决]如何在打印时用VBA在单元格内插入页码

事后诸葛亮 · 发表于 2010-12-7 16:59

我有多页，但是我设置了打印标题

就是说我在打印的时候，想在单元格内自动输入页数。不是在页眉页脚设置。是在单元格内输入页码

好像只能通过VBA解决。。如果能不用VBA解决也可以。。谢谢了

附件： frEXK3P9.rar (8.01 KB, 下载次数: 25)

事后诸葛亮 · 发表于 2010-12-7 17:09

我设置了打印标题行。就是在我打印的时候，每一页都有标题。。

但是每页的标题我又想要求页码有变化。。

上传个附件。我公司的文件格式。。就是在打印的时候，自动生成页码

IcvsfYvP.rar (158.22 KB, 下载次数: 47)

liyh67 · 发表于 2010-12-7 17:48

这个最佳答案由 liyh67 给出，感谢 liyh67 的回答。

单击隐藏图章

用页眉页脚设置也可以呀，你预览看看：

shGigozS.rar (151.11 KB, 下载次数: 185)

豆丁 · 发表于 2010-12-7 18:02

Sub aa()
Dim i%, k%
i = Application.ExecuteExcel4Macro(("Get.Document(50)"))
For k = 1 To i
Range("h3") = "第" & k & "页/共" & i & "页"
ActiveSheet.PrintOut k
Next
End Sub

事后诸葛亮 · 发表于 2010-12-8 13:07

明白了。呵呵谢谢3楼的答案。

也谢谢4楼的代码。

不过豆丁哥，你的代码在打印出来后每一页都是第4页/共4页都是一样的。。

豆丁 · 发表于 2010-12-8 13:26

QUOTE:

以下是引用事后诸葛亮在2010-12-8 13:07:00的发言：

明白了。呵呵谢谢3楼的答案。

也谢谢4楼的代码。

不过豆丁哥，你的代码在打印出来后每一页都是第4页/共4页都是一样的。。

你确定？

		自动登录	找回密码
密码			注册

[已解决]如何在打印时用VBA在单元格内插入页码

浏览过的版块