在excel里用什么函数可以在固定表头的单元格里自动显示当前打印的页数？

Sub 打印()
ActiveWindowSelectedSheetsPrintOut Copies:=1, Collate:=True '打印当前页
Range("b3") = Range("b3")Value + 1
End Sub