#define wdDoNotSaveChanges 0 #define wdExportFormatPDF 17 #Define wdAlertsNone 0 llAttachPDF = .t. TRY WordObj = CREATEOBJECT("Word.Application") WordObj.Application.DisplayAlerts = wdAlertsNone WordObj.documents.open("&lcPassedInDoc") WordObj.visible = .f. *--- lOpenPDF: is set to true or false. Controls whether PDF is displayed. *--- WordObj.ActiveDocument.ExportAsFixedFormat("&lcPDFname", 17, lOpenPDF)>i vae a prg which creates an html document which I need as a pdf so I can email it to someone with all the photos in place
> >lcWordFname = FULLPATH([TownDossier_]+lcTownName+[_]+CHRTRAN(TRANSFORM(DATETIME()),[\/: ],[])+[.htm]) >STRTOFILE(lcHTML , lcWordFname ) > > >Local oWord as word.application >oWord=Createobject("word.application") && Create word object >oWOrd.Visible = .t. >With oWord > .documents.open(lcWordFname) && New file or open a template > >ENDWITH >oWord.ActiveDocument.SaveAs(lcWordFname) >oWord.Activate() > >>