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

我只要页码1,2,3......不要第几页,共几页这种格式。
2024-11-27 23:09:41
推荐回答(2个)
回答1:

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

回答2:

页面设置 里, 页眉页脚 选项卡下,点自定义页脚