Arkadaşlar merhaba aşağıdaki kodda boş sütunları doldurma uyarısı butona bağlı aynı buton ile xps olarak yada pdf olarak mailde atabilirmiyim? ekleme yapılması gerekiyosa nası bi yol izlemem gerek bilgi verirseniz sevinirim.

Private Sub Komut44_Click()
On Error Resume Next
If IsNull(Me.Tarih) Or Me.Tarih = "" Then
MsgBox ("Tarih Eksik!")
Exit Sub
ElseIf IsNull(Me.Firma_Adı) Or Me.Firma_Adı = "" Then
MsgBox ("Firma Adı Eksik!")
Exit Sub
ElseIf IsNull(Me.Konu) Or Me.Konu = "" Then
MsgBox ("Konu Eksik!")
Exit Sub
End If
Dim MyForm As Form
Set MyForm = Screen.ActiveForm
DoCmd.RunCommand acCmdSelectRecord
DoCmd.PrintOut acSelection
End Sub