>>For being toooooooo sleepy, you're doing great! It compiled fine...then at...
>>
>>oWord.Documents.Open("C:\byteworks\gmr\lunches\GUESTLABELS.DOC")
>>
>>I got:
>>
>>Program Error
>>OWord is not an object
>>
>>Thank you SO much!
>>Martha
>
>Sure you got this :-)))
>I am the dum....s here:
>
>

>#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("C:\byteworks\gmr\lunches\GUESTLABELS.DOC")
>With oWord.ActiveDocument.MailMerge
>     .Destination        = wdSendToPrinter
>     .SuppressBlankLines = .t.
>     With .DataSource
>          .FirstRecord = wdDefaultFirstRecord
>          .LastRecord = wdDefaultLastRecord
>      EndWith
>     .Execute()
>EndWith
>oWord.Visible = .t.
>

Boris,
You have done the heavy lifting a little touch:)

#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("C:\byteworks\gmr\lunches\GUESTLABELS.DOC")
With oWord.ActiveDocument.MailMerge
     .Destination        = wdSendToPrinter
     .Execute()
EndWith
oWord.Visible = .t. && if sending to printer maybe .f. and quit?

Cetin