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.