可以用宏来打印。用一个位置合适的单元格来放置页码,每打印一份后自动递增。 以下代码中以 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 |
|