[算表] VBA if的問題

[lgtenos (我真是猜不透你阿)]

軟體:Excel

版本:2010

        With ActiveSheet.PageSetup
            .PrintArea = "C1:P" & spGetData.getRow -1

            TotPages = ActiveSheet.PageSetup.Pages.Count
            LeftFooter = .LeftFooter
            CenterFooter = .CenterFooter
            .LeftFooter = ""
            .CenterFooter = ""

            ActiveWindow.SelectedSheets.PrintOut From:=1, To:=TotPages - 1,
copies:=1

           .LeftFooter = LeftFooter
           .CenterFooter = CenterFooter

            ActiveWindow.SelectedSheets.PrintOut From:=TotPages,
To:=TotPages, copies:=1
        End With

上面是VBA的程式碼
因為列印資料的部分最後一頁的頁尾與前面頁次的頁尾不同
所以會分兩次列印
當頁數在2以上的時候都沒問題
可是只有1頁的時候
就會產生錯誤
請問要如何修正呢

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 114.36.33.171