可以用宏来打印。用一个位置合适的单元格来放置页码,每打印一份后自动递增。
以下代码中以 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
页面设置 里, 页眉页脚 选项卡下,点自定义页脚