oword=createobject("Word.Application") WITH oWord .documents.add() .visible=.t. * Insert Excel Object .Selection.InlineShapes.AddOLEObject("Excel.Sheet.8",fullpath(ExcelFIle), .f.,.f.) * Print it , details may vary depending on your pdf printer lcActivePrinter=.ActivePrinter .ActivePrinter = "Win2PDF" lcoutfile="c:\outfile.pdf" erase ( lcoutfile) .PrintOut(.f.,.f.,"", lcoutfile,,,,,,,.t.) .ActivePrinter = lcActivePrinter &&set default printer back endwith .....Good Luck