Figure out what cell you should put the page number in. (** don't use Excel
footer)

Write a macro that has a for .... next loop. In the loop update the value,
then print

for I = 1 to 200
Activesheet.Range("H40").value = "Page " & I & " of 200"
Activesheet.print ' Not sure my syntax is correct, here. could record
it to get it right.
next


"labrat" wrote:

I need to print several copies of the same form with each page seqentially
numbered to create a book.