Code:
Dim objWord As Word.Document
If Forms![LeaseDocPrint]![chkLease].Value = True Then
Set objWord = GetObject("Z:\Feldman\LeaseDocuments\Residential Lease.doc", "Word.Document")
'Set objWord = GetObject("C:\Work\FREI\LeaseDocuments\Residential Lease.doc", "Word.Document")
objWord.Application.DisplayAlerts = wdAlertsNone
objWord.MailMerge.Destination = wdSendToNewDocument
objWord.MailMerge.Execute
objWord.Application.Options.PrintBackground = False
objWord.Application.ActiveDocument.PrintOut
objWord.Application.ActiveDocument.Close False
objWord.Application.Documents(1).Close False
End If
Sorry, here is the code with the dim for objword. I'll look up what late binding is. I'm a little worry to change something and break the Word 2010 functionality.
-Adam