高清电影_高清电视剧_热门资讯_Excel学习_迅雷电影下载_网络资源

首页|高清电影|Excel学习|高清剧场|学习交流|杂七杂八|网络资源|穿戴数码|热门资讯

毕业生批量打印

 模块1：

Sub 批量打印()
For i = Range("i4") To Range("i5")
Range("h1") = i
ActiveSheet.PrintOut
Next
End Sub
 
模块2：
Sub 单页打印()
ActiveSheet.PrintOut
End Sub
 
模块3：
Sub 转到第几页()
ActiveSheet.Range("H1").Value = ActiveSheet.Range("I7").Value
End Sub

Tags: | 2015/6/30 | 发表评论

Powered By Z-Blog