oWord = CREATEOBJECT('Word.Application') WITH oWord .Documents.Add() .Visible = .T. .Selection.InsertAfter("Mark, why does that crate have air holes?") .PrintOut() DO WHILE .BackgroundPrintingStatus > 0 DOEVENTS() ENDDO .Application.Quit(0) && Quit, don't save and don't prompt ENDwith