请问，通过Excel打印时怎样得到打印的页数(PageCount)？

Question

我通过excel打印票据，将打印代码放在循环中for i = 0 to PrintCnt - 1 Step 1
  
  ...
  
  With objxlsWorksheets    .Cells(1, 2).Value = Data(i)  '往excel里写数据
    ...
    
  End with
  ...
  
  
  icount = ?????                  '插入数据后，返回需要打印的页数(PageCount)  objxlsWorksheets.PrintOut       '通过excel打印  objxlsWb.Close False
  bjxlsApp.Quit
  Set objxlsWs = Nothing
  Set objxlsWb = Nothing
  Set objxlsApp = Nothing  
  ...Next请问，插入数据后，怎样才能返回打印的页数(PageCount)小弟急盼！！  谢谢！！

Answer 1

数据不多的话，建立多个SHEET，每个SHEET只放一页数据，行数是固定的，会算出总页数的。

Answer 2

ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True

Answer 3

下面是全部打印打印三份
ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True这个是打印1-2页共三份
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=3, Collate _
        :=True

Answer 4

我是想插入数据后，得到总页数，请问有没有相关VBA属性，可以直接返回excel文件总页数呢？谢谢！