I've built an Access97 Database application that merges data to Word97
documents. Each record produces a document can be from 1 to 3 pages with
each page resulting from a separate merge of data. I open, print and close
each document. The process is VBA-controlled within Access97. It
successfully runs and is able to print any number of separate documents.
However, if after the first print run has finished, and the user wishes to
print another set of documents, upon printing the first merged document, we
receive a message stating "The RPC Server is Unavailable", and the process
terminates. I have searched this error throughout my literature and have
found no mention of the cause. Here is the core of my merge code: strDocName
= rstStateDocs!AssgnmtDoc1 Set objWord = GetObject(strDocName,
"Word.Document") Set WordApp = objWord.Application WordApp.Visible = True
'Make Word Visible objWord.MailMerge.OpenDataSource _ Name:=strPath ',
Connection:="qry_PrintJob" 'Set the mail merge data source 'Execute the mail
merge objWord.MailMerge.DataSource.FirstRecord = n
objWord.MailMerge.DataSource.LastRecord = n objWord.MailMerge.Destination =
wdSendToNewDocument objWord.MailMerge.Execute PageCount = PageCount + 1
objWord.Application.Options.PrintBackground = False
objWord.Application.ActiveDocument.PrintOut If j <> num Then
Documents(1).Activate Documents(1).Close SaveChanges:=wdDoNotSaveChanges
objWord.Activate objWord.Close SaveChanges:=wdDoNotSaveChanges objWord.Quit
Set objWord = Nothing End if Word stays open during the entire printing
process. I close it after printing the last record. Could you clue me in on
the code I'm missing.