UC知道设计了一个表格，希望打印时能自动更新页码
来源：百度知道 编辑：UC知道 时间：2024/05/28 18:40:32
设计了一个表格，要50份，希望打印时能有页码1～50，怎么操作
这个得用VBA，ALT+F11，粘贴以下内容：
Sub 打印50页()
For i = 1 To 50
Range("a1") = Range("a1") + 1 'A1打印页码
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next
End Sub
预览，设置，页面设置，自定义，往下拉，第1页，共几页就可以了