eklediğiniz kodu aşağıdaki kodlara nasıl uygulamam gerekiyor
DoCmd.OpenReport "tbl_kisiler", acPreview
Kod:
Private Sub Komut33_Click()
'Yacıyı seç başı
Dim strDefaultPrinter As String
' Geçerli Yazıcı
strDefaultPrinter = Application.Printer.DeviceName
' Fatura Yazıcısı Tanımla
Set Application.Printer = Application.Printers("Microsoft XPS Document Writer")
'Yacıyı seç sonu
'ATOZ:
'YAZDIRMA İÇİN MESAJ BİLDİRİMİ
'SetProp "AllowShortcutMenus", dbBoolean, False 'Kısayol menusu aktifleştirme
'EĞER FaturaID BOŞSA,KAYIT SEÇİMİNİN YAPILMASI İÇİN
If Me.FaturaID = "" Or IsNull(Me.FaturaID) Then
MsgBox ("Lütfen FATURA işlemi için kayıt seçiniz"), vbCritical, "KAYIT SEÇME UYARISI"
Me.Undo
Exit Sub
End If
'EĞER ALT FORMDAKİ Toplam ve Yekun DENETİMLERİ BOŞSA,KAYDETME İPTALİ İÇİN
If IsNull(Forms![FaturaGiris]![FaturaDetay].Form![Toplam]) Or Forms![FaturaGiris]![FaturaDetay].Form![Toplam] = "" Or IsNull(Forms![FaturaGiris]![FaturaDetay].Form![Yekun]) Or Forms![FaturaGiris]![FaturaDetay].Form![Yekun] = "" Then
MsgBox ("Alt formdaki" & vbCr & vbCr & "Toplam" & vbCr & "Yekun" & vbCr & vbCr & "denetimleri BOŞ olduğu için" & vbCr & "KAYIT İŞLEMİ İPTAL EDİLMİŞTİR."), vbCritical, "KAYDETME İPTAL BİLGİLENDİRMESİ"
Cancel = True
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdUndo
DoCmd.SetWarnings True
Exit Sub
Else
DoCmd.OpenReport "FaturaDokum", acPreview
Set Application.Printer = Application.Printers(strDefaultPrinter) 'Varsayılan Yazıcıya Geri Dön...
End If
End Sub