毕业生批量打印

模块1：

Sub 批量打印()

For i = Range("i4") To Range("i5")

Range("h1") = i

ActiveSheet.PrintOut

End Sub

模块2：

Sub 单页打印()

ActiveSheet.PrintOut

End Sub

模块3：

Sub 转到第几页()

ActiveSheet.Range("H1").Value = ActiveSheet.Range("I7").Value

End Sub

标签：
分类：学习交流| 发布：admin| 查看： | 发表时间：2015/6/30
原创文章如转载，请注明：转载自个人资讯网　http://www.zhangxinran.com/
本文链接：http://www.zhangxinran.com/post/1425.html

◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。

相关文章