Hafta için;
hafta onay kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu ekle

 Dim stDocName As String

 Dim MyForm As Form

 Dim mesaj As Integer



If Me.hafta = "-1" Then



 mesaj = MsgBox("excelde hazırlanmıs olan bakım föyünü yazdırmak ıstıyor musunuz ?", vbYesNo)

 If mesaj = vbYes Then

 stDocName = "vardefteri"

 Set MyForm = Screen.ActiveForm

 DoCmd.SelectObject acForm, stDocName, True

 DoCmd.PrintOut

 DoCmd.SelectObject acForm, MyForm.Name, False

 End If

End If

İstediğiniz bu ise tabi.