|
如何用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 编辑 ] |
|