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

capt,
Try this:
Private Sub CommandButton3_Click()
Worksheets("UserForm1").Activate
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.PrintOut

End Sub
In this example, "UserForm1" would change to the sheet name(ie Sheet1).
hth
:-)
"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

Thanks for that,
But its not working.
On sheet1 I have a command button that brings up my userform and its this
userform I wish to print. I can get it to print but only on portrate The
problem is that it does not fit the page.
--
capt


"FloMM2" wrote:

capt,
Try this:
Private Sub CommandButton3_Click()
Worksheets("UserForm1").Activate
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.PrintOut

End Sub
In this example, "UserForm1" would change to the sheet name(ie Sheet1).
hth
:-)
"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

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

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

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

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

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