You will need to add error controls:
Dim MyForm As Form
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, "form1", True
DoCmd.PrintOut
DoCmd.SelectObject acForm, "form2", True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False
This will print forms "form1" & "form2" and then return you to the original form. It is an adaptation of the print form wizard.
Someone a little more skilled may be able to elaborate or give you a more concise coding.
HTH
Brad.