第二筆記本

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
[節錄自網管人論壇]