Very good idea Jim


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Jim Rech" wrote in message ...
Assuming you have to print each block separately, after you set each block
as the print_area you could run this XL4 code:

Dim Pgs As Integer
Pgs = Application.ExecuteExcel4Macro("get.document(50)")

to see how many pages will be printed. And start with that number plus 1
for the next block.


--
Jim
wrote in message
oups.com...
| I'm afraid not.
|