Re: [算表] VBA if的問題

[Catbert (宅男)]

※ 引述《lgtenos (我真是猜不透你阿)》之銘言：
: 軟體:Excel
: 版本:2010
:         With ActiveSheet.PageSetup
:             .PrintArea = "C1:P" & spGetData.getRow -1
:             TotPages = ActiveSheet.PageSetup.Pages.Count
:             LeftFooter = .LeftFooter
:             CenterFooter = .CenterFooter
:             .LeftFooter = ""
:             .CenterFooter = ""

            IF TotPages >1 then
:             ActiveWindow.SelectedSheets.PrintOut From:=1, To:=TotPages - 1,
: copies:=1
            End If

:            .LeftFooter = LeftFooter
:            .CenterFooter = CenterFooter
:             ActiveWindow.SelectedSheets.PrintOut From:=TotPages,
: To:=TotPages, copies:=1
:         End With
: 上面是VBA的程式碼
: 因為列印資料的部分最後一頁的頁尾與前面頁次的頁尾不同
: 所以會分兩次列印
: 當頁數在2以上的時候都沒問題
: 可是只有1頁的時候
: 就會產生錯誤
: 請問要如何修正呢

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