Thanks - exactly what was missing in my bag of tricks, thanks for helping
both the OP and ME TOO JMB!!

"JMB" wrote in message
...
It looks like you are trying to determine the number of printed pages.
This
may help.

pgcnt = ExecuteExcel4Macro("Get.Document(50)")

This is from:

http://j-walk.com/ss/excel/tips/tip65.htm

"William Benson" wrote:

You have not assigned the PrintArea?

Just a guess ...

"Hans47" wrote in
message ...

Hi again William,

Just another thing I tried..

the problem appears to be in the line calculating 'Pages' - it results
in a zero
which then causes the error.

Hans


--
Hans47
------------------------------------------------------------------------
Hans47's Profile:
http://www.excelforum.com/member.php...o&userid=17600
View this thread:
http://www.excelforum.com/showthread...hreadid=384412