print record twice
Posted on 2007-04-10
I have created a form that merges information from one record into MS word and prints out the document, then deletes the record from the table.
The following is the code i use to accomplish this;
Dim wordobj As Object
Set wordobj = GetObject("C:\Status\status letter.doc")
wordobj.MailMerge.DataSource.QueryString = "SELECT * FROM [MailMerge] WHERE ID = " & ID
wordobj.MailMerge.Destination = wdSendToNewDocument
wordobj.Application.Options.PrintBackground = False
Set wordobj = Nothing
CurrentDb.Execute "Delete * FROM [MailMerge] WHERE ID = " & ID
The word document "status letter.doc" has two pages one is an envelope (page 0) and the other is a letter (page 1). Right now it works fine and prints both the envelope and the letter. How would I print the envelope once then print the letter(page1) twice?