The following code returns the page count for printed pages - Is it
possible to also find out the range for each page which will be printed,
based on this page count?

PageCount = 0
For Each sht In Worksheets
sht.Activate
Pages = ExecuteExcel4Macro("Get.Document(50)")
PageCount = PageCount + Pages
Next sht
MsgBox "Total Pages = " & PageCount

tia,
dk