Print layout
 

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

Print layout
 

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

Print layout
 

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

Print layout
 

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

Print layout
 

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

Print layout
 

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

Print layout
 

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

Print layout
 

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

Print layout
 

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

Print layout
 

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