<pre>Sub CitcoFax()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim rstRecipients As DAO.Recordset
Dim strFund As String
strFund = "Soros"
Dim objWord As Object
Set db = CurrentDb
Set rst = db.OpenRecordset("CitcoCrosstab")
If rst.BOF And rst.EOF Then
vResult = MsgBox("There are no records. Would you like to send a fax?", vbQuestion + vbYesNo)
If vResult = vbYes Then
'set value to merge
Set rstRecipients = db.OpenRecordset("tblRecipient", dbOpenDynaset)
With rstRecipients
.MoveFirst
.FindFirst "[Fund] = '" & strFund & "'"
.Edit
!Merge = True
.Update
End With
'Open fax cover
Set objWord = CreateObject("Word.Basic")
objWord.AppShow
'objWord.AppMaximize "", 1 (optional)
objWord.FileOpen "C:TradarDevelopmentFax.doc"
DoCmd.OpenQuery "UpdateRecipients(Merge)", acNormal, acEdit
Set rst = Nothing
Set db = Nothing
Exit Sub
Else
Exit Sub
End If
Else
Set objWord = CreateObject("Word.Basic")
objWord.AppShow
'objWord.AppMaximize "", 1 (optional)
objWord.FileOpen "C:TradarDevelopmentCitcoFax.doc"
End If
Set rst = Nothing
Set db = Nothing
End Sub
</pre>

Is there any piece of code I could add to the above code to send the mail-merged document to a new document & close the mail-merged document?