Print Button with Landscape as Default

[d-mcc56]

Hey all,

So I'm working on a form that was created to someone who worked here previously.
There is a button on it that prints the current record.

Private Sub Button204_Click()
On Error GoTo Err_Button204_Click




    DoCmd.DoMenuItem A_FORMBAR, A_EDITMENU, A_SELECTRECORD_V2, , A_MENU_VER20
    DoCmd.PrintOut A_SELECTION


Exit_Button204_Click:
    Exit Sub


Err_Button204_Click:
    MsgBox Error$
    Resume Exit_Button204_Click
End Sub

That is the code for the print button.
I was curious if there was a way to edit this code so that the form record would print in landscape orientation rather than portrait?



Thanks!

[June7]

Print a report, not form. Set page orientation in the report from the Page Setup tab on ribbon.

Otherwise, need code that manipulates the printer object, can get messy. An example where I control duplexing and destination bin:

strPrinter = Application.Printer.DeviceName
...
'open report in preview mode because is only way to change bin and/or printer destinations without changing report saved setup
DoCmd.OpenReport strReport, acViewPreview, , "Submit.ProjRecID=" & rsSampleInfo!ProjRecID & " AND Submit.DateEnter=#" & rsSampleInfo!DateEnter & "#", acWindowNormal, strRDC
If strPrinter Like "*Konica*" Then Reports(strReport).Printer.Duplex = acPRDPSimplex
If Not strRDC Like "*X" And strPrinter Like "*Konica*" Then
    'Set the report destination bin to lower tray to print on yellow paper
    Reports(strReport).Printer.PaperBin = acPRBNLower
End If