Örnekte Rapor olmadığından sanırım form yazdırılmak isteniyor.

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