分享

我要用EXCEL表格打印同一份表格多份,页码的设置怎样自动生成。

 玉郡书屋 2015-08-26
可以用宏来打印。用一个位置合适的单元格来放置页码,每打印一份后自动递增。 以下代码中以 I46 单元格存放页码,如果不合适,请自行替换为您希望的单元格位置 Sub PrintPage() '按打印份数递增页码打印 Dim i As Integer Dim Ps As Integer Dim Str1 As String Str1 = InputBox("请输入您要打印的份数:", "打印份数", "1") Ps = Val(Str1) If Ps < 1 Then MsgBox "输入的打印份数错误,请重新输入!", vbInformation, "易健生活网提示" Exit Sub End If '假设 I46 单元格存放页码 With ActiveSheet For i = 1 To Ps .Range("I46").Value = i .PrintOut DoEvents Next End With End Sub

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多