Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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