Butonun tıklandığında olayındaki kodda
Docmd.runcommand....... kodunu silin, yerine aşağıdaki kodu ekleyiniz.
Dim stDocName As String
Dim MyForm As Form
stDocName = "HİZMET FORMU"
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, stDocName, True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False