determine range for printed pages
hi, dk !
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
AFIAK, for each 'sht' it should be the usedrange.address...
unless, you have a customized printarea, printtitlerows/columns, ???
where you would need to find out through each 'sht' pagesetup properties
hth,
hector.
|