For i = 0 To MultiPage1.Pages.Count - 1
MultiPage1.Pages(i).Enabled = False
MultiPage1.Value = i
Me.Repaint
DoEvents
Me.PrintForm
MultiPage1.Pages(i).Enabled = True
Next


--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"sparx" wrote in
message ...

Hi Harald, your code worked and many thanks.

Would you know how to within your code, make each page:

enabled = true
print
enabled = false

Whats happening is: the pages I have in the userform are enabled (
false ) and each page is greyed out - when you print using your code,
the print is also greyed out.

Is there a code that would make each page enabled so the text prints
normal then prints, then is not enabled anymore so then looks greyed
out again?

I hope you can help.


--
sparx
------------------------------------------------------------------------
sparx's Profile:
http://www.excelforum.com/member.php...o&userid=16787
View this thread: http://www.excelforum.com/showthread...hreadid=566330