Determining the number of printed pages : ExecuteExcel4Macro « Excel « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Excel
3. ExecuteExcel4Macro

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

 

Related examples in the same category