Thanks Dave,
It works well. All I need to do is to reduce the size of the print, its
printing on two pages on landscape.
I shall try running a macro and extracting the code.......hopefully!!!
--
capt


"Dave Peterson" wrote:

That code plops down a picture of the userform onto a new sheet.

If you record a macro when you change the page setup to landscape, you'll see
that the code looks something like:

ActiveSheet.PageSetup.Orientation = xlLandscape



capt wrote:

Thanks dave,
It works, but can you explain again how i change the layout to landscape?
--
capt

"Dave Peterson" wrote:

Tom Ogilvy has posted this a few times:

http://groups.google.co.uk/group/mic...389691 309003

or
http://snipurl.com/14p7q

You can get the code to print in landscape by recording a macro when you do it
once.

capt wrote:

I have the following code to print UserForm1.

Private Sub CommandButton3_Click()
UserForm1.PrintForm
End Sub

How do I get it to print in landscape?

Thank you
--
capt

--

Dave Peterson


--

Dave Peterson