Dim stDocName As String
Dim MyForm As Form
stDocName = "alt_form"
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, stDocName, True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False
Sn.zihniates
Application Engineer