>>#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. >>>
>#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