PDF Creator TOLEAUTO:ADDCODE(0)

[Saul Camargp]

Al intentar crear el archivo PDF marca este mensaje:
PDF Creator TOLEAUTO:ADDCODE(0)
Error MSScriptControl.ScriptControl/3 DISP_E_MEMBERNOTFOUND: ADDCODE
Argumentos: ( [ 1] = Tipo: C Valor: Function StorePDFOptions()
Dim PDFCreator
Codigo en el programa:
WITH OBJECT CreateObject( "MSScriptControl.ScriptControl" )
:Language := "VBScript"
:Reset()
:AddCode( 'Function StorePDFOptions()' + CRLF +;
' Dim PDFCreator' + CRLF +;
' Set PDFCreator = CreateObject("PDFCreator.clsPDFCreator")' + CRLF +;
' PDFCreator.cStart "/NoProcessingAtStartup"' + CRLF +;
' WITH PDFCreator' + CRLF +;
' .cOption("UseAutosave") = 1' + CRLF +;
' .cOption("UseAutosaveDirectory") = 1' + CRLF +;
' .cOption("AutosaveFormat") = 0' + CRLF +;
' .cClearcache' + CRLF +;
' .cPrinterStop = false' + CRLF +;
' .cOption("AutosaveDirectory")="' + cDirectory + '"' + CRLF +;
' .cOption("AutosaveFilename")="'+ cFileName + '"' + CRLF +;
' .cSaveOptions' + CRLF +;
' .cClose' + CRLF +;
' End With' + CRLF +;
'End Function' )
:ExecuteStatement("StorePDFOptions")
END WITH