printing userform landscape and on a4

[SQUIDD]

Hello all

I want to print my userform on a4 in landscape.

i have searched the web for answers, have found code also, but it just does not work for me.

i cant really pull the data from the userform to a sheet either, well not easily, i have certian layout and tickboxes etc

the code i have found, other users have mentioned it has work for them also, but i get errors.

can anyone help or point me in the right direction.

id be happy with a button that screenshot it and printed?

thanks

dave

 

[Logit]

.
This prints PORTRAIT. See if you can edit the code for LANDSCAPE :

Option Explicit


Private Sub CommandButton1_Click()
    Dim h1 As Worksheet
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set h1 = Sheets.Add
    Application.SendKeys "(%{1068})"
    DoEvents
    h1.Paste
    h1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "userform.pdf"
    h1.Delete
End Sub

 

[John_w]

I want to print my userform on a4 in landscape.

What have you tried?

There are some ideas in http://www.mrexcel.com/forum/excel-questions/331211-save-userform-bmp.html, including a couple of linked pages.

 

[Logit]

This works here:

Option Explicit


Private Sub CommandButton1_Click()
    Dim h1 As Worksheet
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set h1 = Sheets.Add
    h1.PageSetup.Orientation = xlLandscape
    Application.SendKeys "(%{1068})"
    DoEvents
    h1.Paste
    h1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "userform.pdf"
    h1.Delete
End Sub