Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Determining the number of printed pages
Sub ShowPageCount()
    For Each sht In Worksheets
        sht.Activate
        Pages = ExecuteExcel4Macro("Get.Document(50)")
        Debug.Print Pages
    Next sht
End Sub