Information générale
Catégorie:
COM/DCOM et OLE Automation
Versions des environnements
Hi Tamar,
Thank you for your response.
I did find that link while doing some searching on my own, but it doesn't seem to address the problem I'm having.
The following code used to work, then I'm assuming a newer version of Word may have come into play and now it fails at:
.Destination = wdSendToPrinter (Error: 'Destination' is not a by reference property)
#define wdSendToPrinter 1
#define wdDefaultFirstRecord 1
#define wdDefaultLastRecord -16
LOCAL oWord
oWord = CREATEOBJECT([Word.Application]) && W/o this nothing can work, even VFP9 :-))))
oWord.Documents.Open(m.dir+"MyFile.DOC")
With oWord.ActiveDocument.MailMerge
.Destination = wdSendToPrinter
.SuppressBlankLines = .t.
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
EndWith
.Execute()
EndWith
#DEFINE wdDoNotSaveChanges 0
#DEFINE wdSaveChanges -1
#DEFINE wdPromptToSaveChanges -2
oWord.Quit( wdDoNotSaveChanges )
Any further help you can provide is greatly appreciated.
Martha
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement