>ProjObjsdetn2 = CreateObject("msproject.application") >Set Procedure To cdefaultpnt Select tblms1 >Scan For AllTrim(promang) == AllTrim(This.DisplayValue) And compl1 = .F. >>Do listprint >tv1n2 = AllTrim(tblms1.custno) >Do createpdf With "C:\Temp\PDFMilestones\" + tv1n3 + ".pdf" >sxd1tn2 = FullPath(Curdir() + "MScharts\" + tv1n2 + ".mpp") >ProjObjsdetn2.Application.FileOpen(sxd1tn2,.T.) >ProjObjsdetn2.Application.FilePrintSetup('Acrobat PDFWriter on LPT1:') >ProjObjsdetn2.Application.FilePrint(.NULL.,.NULL.,.F.)What's your question? Since Houston's program works for me, I didn't try to evaluate Rick's class. About year ago I took a quick look, but that was it.