Printing UserForm in VBA

[Oseitutuakrasi]

Hi All,

I have a one-line code to print a UserForm: UserForm1.PrintForm. However, the default printing orientation is Portrait.
Is there any way to modify the above code to print in Landscape?

Many thanks.

 

[saboh12617]

Hello, did you look this thread? Print a userform in landscape

 

[DanteAmor]

Before printing the userform with PrintForm, put these lines:

    With ActiveSheet.PageSetup
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
    End With

UserForm1.PrintForm

And this is another option:

Private Sub CommandButton1_Click()
   Dim h1 as Worksheet

    Set h1 = Sheets.Add
    h1.PageSetup.Orientation = xlLandscape
    Application.SendKeys "(%{1068})"
    DoEvents
    h1.Paste
    h1.PrintOut Copies:=1, Collate:=True
    Application.DisplayAlerts = False
    h1.Delete
End Sub

 

[Oseitutuakrasi]

Hello, did you look this thread? Print a userform in landscape

Thanks Saboh

 

[Oseitutuakrasi]

Before printing the userform with PrintForm, put these lines:

    With ActiveSheet.PageSetup
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
    End With

UserForm1.PrintForm

And this is another option:

Private Sub CommandButton1_Click()
   Dim h1 as Worksheet

    Set h1 = Sheets.Add
    h1.PageSetup.Orientation = xlLandscape
    Application.SendKeys "(%{1068})"
    DoEvents
    h1.Paste
    h1.PrintOut Copies:=1, Collate:=True
    Application.DisplayAlerts = False
    h1.Delete
End Sub

Thank you, friend. The first code did not work but the second one did. However, it prints on multiple pages instead of one. I will try and manage that.

Thanks again.

 

[Peter_SSs]

Thank you, friend. The first code did not work but the second one did.

The marked solution has been changed accordingly. In your future questions, please mark the post as the solution that actually answered your question, instead of your feedback message as it will help future readers. No further action is required for this thread.