如何用VBA自动编写打印Excel报表时表头中第几页共几页的页码

zhangyu05 · 发表于 2010-11-21 17:14

如何用VBA自动编写打印Excel报表时表头中第几页共几页的页码，不是页眉或页脚中的那个页码？

表头是Excel工作表中顶部冻结的前5行。

要求在打印的时候，
打印第一页的时候，在表头的H3单元格填写：1，K3单元格填上：3；
打印第二页的时候，在表头的H3单元格填写：2，K3单元格写上：3；
打印第三页的时候，在表头的H3单元格写入：3，K3单元格写上：3。

样例见附件

还有一个问题。如zjdh兄弟给的代码，能够实现逐页自动填写页码并打印。但是，如果我将我的打印机设置成“双面打印”，该代码由于是逐页重新开始打印，所以打印的结果是单面的。有哪位仁兄能解决这个问题？

原帖由 zjdh 于 2010-11-21 18:27 发表
给你一段代码吧：
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值

谢谢大家！

[ 本帖最后由 zhangyu05 于 2010-11-24 10:30 编辑 ]

intety · 发表于 2010-11-21 17:39

呵呵，很实用，

zhangyu05 · 发表于 2010-11-21 17:44

怎么解决这个问题啊，我搜遍了整个论坛和百度、google，都没找到合适的解决方法。

zjdh · 发表于 2010-11-21 18:11

给个思路：
用
p = ExecuteExcel4Macro("Get.Document(50)")
宏表函数获得打印总页数 p
K3 = P
用循环1 to p
逐页打印，打印前修改H3的值。

[ 本帖最后由 zjdh 于 2010-11-21 18:12 编辑 ]

zjdh · 发表于 2010-11-21 18:27

给你一段代码吧：
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值

LangQueS · 发表于 2010-11-21 19:49

将页眉位置拖动到表格中。请打印显示：

yanjie · 发表于 2010-11-21 20:14

一页一页的打印循环，添加H3单元格的值：
Sub yanjie()
Dim i%
For i = 1 To 3
Sheet1.PrintOut From:=i, To:=i
Range("H3").value = i
Next i

End Sub

zhangyu05 · 发表于 2010-11-21 21:16

原帖由 zjdh 于 2010-11-21 18:27 发表
给你一段代码吧：
Sub Prt()
P = ExecuteExcel4Macro("Get.Document(50)")
ActiveSheet.Range("K3") = P
For I = 1 To P
ActiveSheet.Range("H3") = I
ActiveWindow.SelectedShee ...

好思路！

zhangyu05 · 发表于 2010-11-21 21:21

原帖由 LangQueS 于 2010-11-21 19:49 发表
将页眉位置拖动到表格中。请打印显示：

这个方法我也想过，但是随着总页数和第几页的变化，即字符长度发生变化，所以“第几页”和“共几页”的位置在发生变化，会变得不是很好看。

zhangyu05 · 发表于 2010-11-21 21:49

谁有更好的方法啊？

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

[求助] 如何用VBA自动编写打印Excel报表时表头中第几页共几页的页码

回复 1楼 zhangyu05 的帖子