EXCEL列印多頁時連續頁，如何使得前頁尾顯示“TO BE CONTINUE”,後繼頁首顯示"CONTINUE"

Sub d2p()
nPC = ExecuteExcel4Macro("Get.Document(50)")
For nI = 1 To nPC
ActiveSheet.PageSetup.CenterHeader = IIf(nI = 1, _
"--------------------------------------------", _
"-------------------CONTINUE-----------------")
ActiveSheet.PageSetup.CenterFooter = IIf(nI = nPC, _
"--------------------------------------------", _
"----------------TO BE CONTINUE--------------")
ActiveSheet.PrintOut From:=nI, To:=nI
Next
End Sub
[節錄自網管人論壇]