TheBeefMan
New Member
- Joined
- Sep 20, 2007
- Messages
- 7
Please can anyone help me print a userform automatically in landscape mode? I just can't seem to get the code right. I would appreciate any leads.
-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
Print a userform in landscape
- Thread starter TheBeefMan
- Start date
Tom Urtis
MrExcel MVP
- Joined
- Feb 10, 2002
- Messages
- 11,300
Assuming your userform is named "UserForm1", you might be able to get away with this simple one-liner to print the image of that userform:
UserForm1.PrintForm
In that example, the userform does not need to be open or active.
If you truly want to make sure the userform's image is printed in landscape, here is one way, which will involve said userform being open.
In a fresh new standard module such as the kind you put macros and UDFs in, paste in this code:
In the userform of interest's module (again, assuming it is named UserForm1 because you did not say), paste in this code which would be triggered when you click a command button named "CommandButton1" that you have placed on that userform:
UserForm1.PrintForm
In that example, the userform does not need to be open or active.
If you truly want to make sure the userform's image is printed in landscape, here is one way, which will involve said userform being open.
In a fresh new standard module such as the kind you put macros and UDFs in, paste in this code:
Code:
Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const VK_SNAPSHOT = &H2CIn the userform of interest's module (again, assuming it is named UserForm1 because you did not say), paste in this code which would be triggered when you click a command button named "CommandButton1" that you have placed on that userform:
Code:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
keybd_event VK_SNAPSHOT, 1, 0, 0
Workbooks.Add 1
ActiveSheet.Range("A1").Select
Application.Wait Now + TimeValue("00:00:01")
ActiveSheet.PasteSpecial Format:="Bitmap", Link:=False, DisplayAsIcon:=False
With ActiveSheet
.PageSetup.Orientation = xlLandscape
.PageSetup.LeftHeader = "Userform1"
.PrintOut
End With
ActiveWorkbook.Close False
Unload Me
Application.ScreenUpdating = True
End Sub
Upvote
0
TheBeefMan
New Member
- Joined
- Sep 20, 2007
- Messages
- 7
Thank you very much. That works to perfection. I can apply this to my work project.
Upvote
0
I can actually contribute something!!!
To print the userform centered, both horizontally and vertically, add the following:
.PageSetup.CenterHorizontally = True
.PageSetup.CenterVertically = True
Wow, I actually contributed something instead of always taking. Feels good!
To print the userform centered, both horizontally and vertically, add the following:
.PageSetup.CenterHorizontally = True
.PageSetup.CenterVertically = True
Wow, I actually contributed something instead of always taking. Feels good!
Upvote
0
