Glad you got it working.

Recording a macro when you do the page setup gives you lots of things that you
may not need to change. In your modified code, just keep the lines of code that
are associated with what you want changed (.zoom and .orientation).

If you delete (or comment that code) that you don't need, you may notice that
your macro takes less time to execute.

capt wrote:

Actually Dave, I have sorted it out with the following code:

ActiveSheet.PageSetup.zoom = 85

Thanks again
--
capt

"capt" wrote:

Sorry dave,
I am trying to reduce the size of the printing to fit on a A4 size paper,
cant manage it.
Iv tried running a macro and pasting the code over, but no joy.
Could you help
--
capt


"capt" wrote:

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


--

Dave Peterson