This is the code in vbs
it works but using word 6 I get that error
************************
set pdfcreat=createobject(“PDFCreator.PDFCreatorObj”)
Set fso = CreateObject(“Scripting.FileSystemObject”)
fullPath=“C:”&"prova.doc"
set PDFCreatorQueue=CreateObject(“PDFCreator.JobQueue”)
PDFCreatorQueue.Initialize
pdfcreat.PrintFile(fullPath)
‘pdfcreat.PrintFileSwitchingPrinters fullPath, true
if(PDFCreatorQueue.WaitForJob(10)=false) then
msgbox (“The print job did not reach the queue within 10 seconds”)
end if
set job = PDFCreatorQueue.NextJob
job.SetProfileByGuid(“DefaultGuid”)
’*****add watermark
job.SetProfileSetting “BackgroundPage.Enabled”, "true"
job.SetProfileSetting “BackgroundPage.File”, "d:\modellinormal\A4_intestata.pdf"
job.ConvertToAsync(fullPath)
'job.ConvertTo(fullPath)
'if(job.IsFinished =False OR job.IsSuccessful=False) then
’ msgbox(“Error in process”)
'end if
PDFCreatorQueue.ReleaseCom()