EXCEL 进

我用EXCE做了一个表格，如果打印同一个表格，打印50份，如何在右上角显示编码，如00001，00002，……，00050都以递增的方式打印，在纸上显示编号，就像收据上的编号一样，请问如何能做到

需要用宏。请先确保默认打印机正确。
假设你右上角有一空白单元格H1（如果是其他，把下面代码中那个改了），同时按Alt和F11进入宏界面，点菜单的插入，模块，在新出来的窗口中粘贴以下代码：
Sub test()
Dim i As Byte
For i = 1 To 50
Range("H1") = "'" & right("0000" & i, 5)
ActiveSheet.PrintOut
Next i
End Sub
按F5运行此宏，完成。