Nadya,

How can I get to work with the wwpdf class:

ProjObjsdetn2 = CreateObject("msproject.application")
Select tblms1
Scan For AllTrim(promang) == AllTrim(This.DisplayValue) And compl1 = .F.
Set Procedure To cdefaultpnt
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.)