Code:
Private Sub CommandBtn_Click() Dim MyForm As Form Set MyForm = Screen.ActiveForm DoCmd.SelectObject acForm, MyForm.Name,
Private Sub CommandBtn_Click() Dim MyForm As Form Set MyForm = Screen.ActiveForm DoCmd.SelectObject acForm, MyForm.Name,
Private Sub CommandBtn_Click() Dim MyForm As Form Set MyForm = Screen.ActiveForm DoCmd.SelectObject acForm, MyForm.Name, True DoCmd.PrintOut DoCmd.SelectObject acForm, MyForm.Name, False End Sub
Private Sub CommandBtn_Click()
Dim MyForm As Form
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, MyForm.Name, True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False
End Sub