A family of Microsoft relational database management systems designed for ease of use.
Although Printing Forms is not ideal, if there is a situation where you must then try this
This function has been tested to work in MS Access 2013 but should also be compatible with 2007 and 2010
It requires both parts be completed to work properly (Call to the function and the Manual Page set up on the Print Preview)
In your OnClick Event (Print Button on the SubForm)
Add the call to a sub
Call printSubformInLandscape(Screen.ActiveForm, Screen.ActiveForm.ActiveControl.Form.Name)
Cut and paste this in as your sub
Sub printSubformInLandscape(ByRef ParentForm, ByVal SubForm)
On Error GoTo Err_printSubformInLandscape
Dim MyForm As Form
Dim prtr As Access.Printer
Set MyForm = ParentForm
Set prtr = Application.Printer
Set MyForm.Printer = prtr
DoCmd.SelectObject acForm, SubForm, True
prtr.Orientation = acPRORLandscape
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False
Exit_printSubformInLandscape:
Exit Sub
Err_printSubformInLandscape:
MsgBox Err.Description & " printSubformInLandscape "
Resume Exit_printSubformInLandscape
End Sub
You must Also go into your SubForm in Design Mode
- For Access 2013 --> Select File - Print - Print Preview and change the Orientation to Landscape
- Save your form changes
Test it