sheet3工作表事件,如何改写下面代码,使不同页码设置不同的标题?谢谢!!!

hcy1185

sheet3工作表事件,如何改写下面代码,使不同页码设置不同的标题?谢谢!!!

Private Sub Worksheet_BeforePrint(ByVal Cancel As Boolean) '页面设置的()'
    Dim ws As Worksheet, icount As Integer
    Cancel = True
    Set ws = ActiveSheet
    Application.ScreenUpdating = False
    With ws.PageSetup
        .PrintArea = "$A$1:$v$300" '打印区域
        .PrintTitleRows = "$1:$7"  '标题行
        .LeftHeader = " "          '左页眉文档：&f
        .CenterHeader = " "        '中页眉
        .RightHeader = " "         '右页眉
        '.LeftFooter = " "        '左页脚
        
        For icount = 1 To ws.PageSetup.Pages.count
            Select Case icount
                Case 1 To 2
                    .LeftFooter = "维持简单再生产资金"
                Case 3 To 8
                    .LeftFooter = "生产安全费用"
                Case 9 To 10
                    .LeftFooter = "固定资产修理费"
                Case 11
                    .LeftFooter = "科技开发项目"
                Case 12
                    .LeftFooter = "技术改造项目"
            End Select
        Next icount
        
        .CenterFooter = "第 &p 页，共 &n 页" '中页脚
        .RightFooter = "日期: &d  "          '右页脚、时间: &t
    End With
    Application.ScreenUpdating = True
End Sub