不同打印区域，怎样设置不同的页脚？

Private Sub Workbook_BeforePrint(Cancel As Boolean)

    Dim n%

    n = MsgBox("打印本工作表——→第1页，按“是”；" & Chr(13) & Chr(13) & _

               "打印本工作表——→全部，按“否”；" & Chr(13) & Chr(13) & _

           "不是打印本工作表，按“取消”。", vbYesNoCancel, "选择性打印提示")

    If n = 2 Then Cancel = True: Exit Sub

    Application.EnableEvents = False

    If n = 6 Then

        Cancel = True

        ActiveSheet.PageSetup.CenterFooter = "甲方收货人：" 

        ActiveWindow.SelectedSheets.PrintOut To:=1

    Else

       ActiveSheet.PageSetup.CenterFooter = "第 &P 页，共 &N 页"

    End If

    Application.EnableEvents = True

End Sub