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