I need help translating this vb code segmnet to Pb
PRIVATE WithEvents PDFCreator1 AS PDFCreator.clsPDFCreator
PRIVATE opt AS clsPDFCreatorOptions
SET PDFCreator1 = NEW clsPDFCreator
SET OPT = PDFCreator1.cOptions
WITH OPT
.AutosaveDirectory = Path
.AutosaveFilename = Filename
.UseAutosave = 1
.UseAutosaveDirectory = 1
.AutosaveFormat = 0 ' PDF
END WITH
SET PDFCreator1.cOptions = OPT
And the object declaration are following
TIA
' ########################################################################################
' Library name: PDFCreator
' Version: 7.1, Locale ID = 0
' Description: PDFCreator
' Path: C:\Program Files\PDFCreator\PDFCreator.exe
' Library GUID: {1CE9DC08-9FBC-45C6-8A7C-4FE1E208A613}
' Code generated by the TypeLib Browser 4.0.13 (c) 2008 by Josי Roca
' Date: 22 נובמבר 2010 Time: 21:57:58
' ########################################################################################
' ========================================================================================
' ProgIDs (Program identifiers)
' ========================================================================================
' CLSID = {84D26557-2990-4B3E-A99F-C4DC1CB6C225}
$PROGID_clsPDFCreatorError = "PDFCreator.clsPDFCreatorError"
' CLSID = {411DBF4B-0B78-4C28-9997-ECD80CC371C4}
$PROGID_clsPDFCreatorInfoSpoolFile = "PDFCreator.clsPDFCreatorInfoSpoolFile"
' CLSID = {FCC886F6-E0DF-4302-8BE4-F8A8D9CB881C}
$PROGID_clsPDFCreatorOptions = "PDFCreator.clsPDFCreatorOptions"
' CLSID = {D9CB27BE-9FAE-4CF5-B615-F4F4F6559CB0}
$PROGID_clsTools = "PDFCreator.clsTools"
' CLSID = {8DEF9991-20D2-41A1-AC11-54E9CEEB9AD3}
$PROGID_clsUpdate = "PDFCreator.clsUpdate"
' ========================================================================================
' ClsIDs (Class identifiers)
' ========================================================================================
$CLSID_clsPDFCreator = GUID$("{40108C54-9352-46C9-822C-027727352F00}")
$CLSID_clsPDFCreatorError = GUID$("{84D26557-2990-4B3E-A99F-C4DC1CB6C225}")
$CLSID_clsPDFCreatorInfoSpoolFile = GUID$("{411DBF4B-0B78-4C28-9997-ECD80CC371C4}")
$CLSID_clsPDFCreatorOptions = GUID$("{FCC886F6-E0DF-4302-8BE4-F8A8D9CB881C}")
$CLSID_clsTools = GUID$("{D9CB27BE-9FAE-4CF5-B615-F4F4F6559CB0}")
$CLSID_clsUpdate = GUID$("{8DEF9991-20D2-41A1-AC11-54E9CEEB9AD3}")
' ========================================================================================
' IIDs (Interface identifiers)
' ========================================================================================
$IID__clsPDFCreator = GUID$("{3F8935D8-B2F1-4511-8A12-1A958E4C9265}")
$IID__clsPDFCreatorError = GUID$("{A030F401-6045-4942-A5F5-9CCBF2C1872D}")
$IID__clsPDFCreatorInfoSpoolFile = GUID$("{253F17D9-1678-4B0E-843E-A2D37C2C6B4E}")
$IID__clsPDFCreatorOptions = GUID$("{2B95D3B7-F610-4DFA-90D5-03432D31384E}")
$IID__clsTools = GUID$("{6CC5DA2E-E74A-4948-892C-792378C1F23D}")
$IID__clsUpdate = GUID$("{A235533B-C688-43F0-80D3-D87BEAC96D05}")
$IID___clsPDFCreator = GUID$("{846095DC-5910-4AE6-8892-F50D3BE97AFB}")
' ########################################################################################
' CoClass name = clsPDFCreatorOptions
' Interface name = _clsPDFCreatorOptions
' IID = {2B95D3B7-F610-4DFA-90D5-03432D31384E}
' Attributes = 4304 [&H10D0] [Hidden] [Dual] [Nonextensible] [Dispatchable]
' Inherited interface = IDispatch
' ########################################################################################
#IF NOT %DEF(%clsPDFCreatorOptions_DISPINTERFACE_DEFINED)
%clsPDFCreatorOptions_DISPINTERFACE_DEFINED = 1
INTERFACE IDBIND clsPDFCreatorOptions
MEMBER GET AdditionalGhostscriptParameters <1073938432> () AS STRING
MEMBER LET AdditionalGhostscriptParameters <1073938432> () ' Parameter Type AS STRING
MEMBER GET AdditionalGhostscriptSearchpath <1073938433> () AS STRING
MEMBER LET AdditionalGhostscriptSearchpath <1073938433> () ' Parameter Type AS STRING
MEMBER GET AddWindowsFontpath <1073938434> () AS LONG
MEMBER LET AddWindowsFontpath <1073938434> () ' Parameter Type AS LONG
MEMBER GET AllowSpecialGSCharsInFilenames <1073938602> () AS LONG
MEMBER LET AllowSpecialGSCharsInFilenames <1073938602> () ' Parameter Type AS LONG
MEMBER GET AutosaveDirectory <1073938435> () AS STRING
MEMBER LET AutosaveDirectory <1073938435> () ' Parameter Type AS STRING
MEMBER GET AutosaveFilename <1073938436> () AS STRING
MEMBER LET AutosaveFilename <1073938436> () ' Parameter Type AS STRING
MEMBER GET AutosaveFormat <1073938437> () AS LONG
MEMBER LET AutosaveFormat <1073938437> () ' Parameter Type AS LONG
MEMBER GET AutosaveStartStandardProgram <1073938438> () AS LONG
MEMBER LET AutosaveStartStandardProgram <1073938438> () ' Parameter Type AS LONG
MEMBER GET BMPColorscount <1073938439> () AS LONG
MEMBER LET BMPColorscount <1073938439> () ' Parameter Type AS LONG
MEMBER GET BMPResolution <1073938440> () AS LONG
MEMBER LET BMPResolution <1073938440> () ' Parameter Type AS LONG
MEMBER GET ClientComputerResolveIPAddress <1073938441> () AS LONG
MEMBER LET ClientComputerResolveIPAddress <1073938441> () ' Parameter Type AS LONG
MEMBER GET Counter <1073938442> () AS CUR
MEMBER LET Counter <1073938442> () ' Parameter Type AS CUR
MEMBER GET DeviceHeightPoints <1073938443> () AS DOUBLE
MEMBER LET DeviceHeightPoints <1073938443> () ' Parameter Type AS DOUBLE
MEMBER GET DeviceWidthPoints <1073938444> () AS DOUBLE
MEMBER LET DeviceWidthPoints <1073938444> () ' Parameter Type AS DOUBLE
MEMBER GET DirectoryGhostscriptBinaries <1073938445> () AS STRING
MEMBER LET DirectoryGhostscriptBinaries <1073938445> () ' Parameter Type AS STRING
MEMBER GET DirectoryGhostscriptFonts <1073938446> () AS STRING
MEMBER LET DirectoryGhostscriptFonts <1073938446> () ' Parameter Type AS STRING
MEMBER GET DirectoryGhostscriptLibraries <1073938447> () AS STRING
MEMBER LET DirectoryGhostscriptLibraries <1073938447> () ' Parameter Type AS STRING
MEMBER GET DirectoryGhostscriptResource <1073938448> () AS STRING
MEMBER LET DirectoryGhostscriptResource <1073938448> () ' Parameter Type AS STRING
MEMBER GET DisableEmail <1073938449> () AS LONG
MEMBER LET DisableEmail <1073938449> () ' Parameter Type AS LONG
MEMBER GET DontUseDocumentSettings <1073938450> () AS LONG
MEMBER LET DontUseDocumentSettings <1073938450> () ' Parameter Type AS LONG
MEMBER GET EPSLanguageLevel <1073938451> () AS LONG
MEMBER LET EPSLanguageLevel <1073938451> () ' Parameter Type AS LONG
MEMBER GET FilenameSubstitutions <1073938452> () AS STRING
MEMBER LET FilenameSubstitutions <1073938452> () ' Parameter Type AS STRING
MEMBER GET FilenameSubstitutionsOnlyInTitle <1073938453> () AS LONG
MEMBER LET FilenameSubstitutionsOnlyInTitle <1073938453> () ' Parameter Type AS LONG
MEMBER GET JPEGColorscount <1073938454> () AS LONG
MEMBER LET JPEGColorscount <1073938454> () ' Parameter Type AS LONG
MEMBER GET JPEGQuality <1073938455> () AS LONG
MEMBER LET JPEGQuality <1073938455> () ' Parameter Type AS LONG
MEMBER GET JPEGResolution <1073938456> () AS LONG
MEMBER LET JPEGResolution <1073938456> () ' Parameter Type AS LONG
MEMBER GET Language <1073938457> () AS STRING
MEMBER LET Language <1073938457> () ' Parameter Type AS STRING
MEMBER GET LastSaveDirectory <1073938458> () AS STRING
MEMBER LET LastSaveDirectory <1073938458> () ' Parameter Type AS STRING
MEMBER GET LastUpdateCheck <1073938603> () AS STRING
MEMBER LET LastUpdateCheck <1073938603> () ' Parameter Type AS STRING
MEMBER GET Logging <1073938459> () AS LONG
MEMBER LET Logging <1073938459> () ' Parameter Type AS LONG
MEMBER GET LogLines <1073938460> () AS LONG
MEMBER LET LogLines <1073938460> () ' Parameter Type AS LONG
MEMBER GET NoConfirmMessageSwitchingDefaultprinter <1073938461> () AS LONG
MEMBER LET NoConfirmMessageSwitchingDefaultprinter <1073938461> () ' Parameter Type AS LONG
MEMBER GET NoProcessingAtStartup <1073938462> () AS LONG
MEMBER LET NoProcessingAtStartup <1073938462> () ' Parameter Type AS LONG
MEMBER GET NoPSCheck <1073938463> () AS LONG
MEMBER LET NoPSCheck <1073938463> () ' Parameter Type AS LONG
MEMBER GET OnePagePerFile <1073938464> () AS LONG
MEMBER LET OnePagePerFile <1073938464> () ' Parameter Type AS LONG
MEMBER GET OptionsDesign <1073938465> () AS LONG
MEMBER LET OptionsDesign <1073938465> () ' Parameter Type AS LONG
MEMBER GET OptionsEnabled <1073938466> () AS LONG
MEMBER LET OptionsEnabled <1073938466> () ' Parameter Type AS LONG
MEMBER GET OptionsVisible <1073938467> () AS LONG
MEMBER LET OptionsVisible <1073938467> () ' Parameter Type AS LONG
MEMBER GET Papersize <1073938468> () AS STRING
MEMBER LET Papersize <1073938468> () ' Parameter Type AS STRING
MEMBER GET PCLColorsCount <1073938469> () AS LONG
MEMBER LET PCLColorsCount <1073938469> () ' Parameter Type AS LONG
MEMBER GET PCLResolution <1073938470> () AS LONG
MEMBER LET PCLResolution <1073938470> () ' Parameter Type AS LONG
MEMBER GET PCXColorscount <1073938471> () AS LONG
MEMBER LET PCXColorscount <1073938471> () ' Parameter Type AS LONG
MEMBER GET PCXResolution <1073938472> () AS LONG
MEMBER LET PCXResolution <1073938472> () ' Parameter Type AS LONG
MEMBER GET PDFAes128Encryption <1073938606> () AS LONG
MEMBER LET PDFAes128Encryption <1073938606> () ' Parameter Type AS LONG
MEMBER GET PDFAllowAssembly <1073938473> () AS LONG
MEMBER LET PDFAllowAssembly <1073938473> () ' Parameter Type AS LONG
MEMBER GET PDFAllowDegradedPrinting <1073938474> () AS LONG
MEMBER LET PDFAllowDegradedPrinting <1073938474> () ' Parameter Type AS LONG
MEMBER GET PDFAllowFillIn <1073938475> () AS LONG
MEMBER LET PDFAllowFillIn <1073938475> () ' Parameter Type AS LONG
MEMBER GET PDFAllowScreenReaders <1073938476> () AS LONG
MEMBER LET PDFAllowScreenReaders <1073938476> () ' Parameter Type AS LONG
MEMBER GET PDFColorsCMYKToRGB <1073938477> () AS LONG
MEMBER LET PDFColorsCMYKToRGB <1073938477> () ' Parameter Type AS LONG
MEMBER GET PDFColorsColorModel <1073938478> () AS LONG
MEMBER LET PDFColorsColorModel <1073938478> () ' Parameter Type AS LONG
MEMBER GET PDFColorsPreserveHalftone <1073938479> () AS LONG
MEMBER LET PDFColorsPreserveHalftone <1073938479> () ' Parameter Type AS LONG
MEMBER GET PDFColorsPreserveOverprint <1073938480> () AS LONG
MEMBER LET PDFColorsPreserveOverprint <1073938480> () ' Parameter Type AS LONG
MEMBER GET PDFColorsPreserveTransfer <1073938481> () AS LONG
MEMBER LET PDFColorsPreserveTransfer <1073938481> () ' Parameter Type AS LONG
MEMBER GET PDFCompressionColorCompression <1073938482> () AS LONG
MEMBER LET PDFCompressionColorCompression <1073938482> () ' Parameter Type AS LONG
MEMBER GET PDFCompressionColorCompressionChoice <1073938483> () AS LONG
MEMBER LET PDFCompressionColorCompressionChoice <1073938483> () ' Parameter Type AS LONG
MEMBER GET PDFCompressionColorCompressionJPEGHighFactor <1073938484> () AS DOUBLE
MEMBER LET PDFCompressionColorCompressionJPEGHighFactor <1073938484> () ' Parameter Type AS DOUBLE
MEMBER GET PDFCompressionColorCompressionJPEGLowFactor <1073938485> () AS DOUBLE
MEMBER LET PDFCompressionColorCompressionJPEGLowFactor <1073938485> () ' Parameter Type AS DOUBLE
MEMBER GET PDFCompressionColorCompressionJPEGManualFactor <1073938607> () AS DOUBLE
MEMBER LET PDFCompressionColorCompressionJPEGManualFactor <1073938607> () ' Parameter Type AS DOUBLE
MEMBER GET PDFCompressionColorCompressionJPEGMaximumFactor <1073938486> () AS DOUBLE
MEMBER LET PDFCompressionColorCompressionJPEGMaximumFactor <1073938486> () ' Parameter Type AS DOUBLE
MEMBER GET PDFCompressionColorCompressionJPEGMediumFactor <1073938487> () AS DOUBLE
MEMBER LET PDFCompressionColorCompressionJPEGMediumFactor <1073938487> () ' Parameter Type AS DOUBLE
MEMBER GET PDFCompressionColorCompressionJPEGMinimumFactor <1073938488> () AS DOUBLE
MEMBER LET PDFCompressionColorCompressionJPEGMinimumFactor <1073938488> () ' Parameter Type AS DOUBLE
MEMBER GET PDFCompressionColorResample <1073938489> () AS LONG
MEMBER LET PDFCompressionColorResample <1073938489> () ' Parameter Type AS LONG
MEMBER GET PDFCompressionColorResampleChoice <1073938490> () AS LONG
MEMBER LET PDFCompressionColorResampleChoice <1073938490> () ' Parameter Type AS LONG
MEMBER GET PDFCompressionColorResolution <1073938491> () AS LONG
MEMBER LET PDFCompressionColorResolution <1073938491> () ' Parameter Type AS LONG
MEMBER GET PDFCompressionGreyCompression <1073938492> () AS LONG
MEMBER LET PDFCompressionGreyCompression <1073938492> () ' Parameter Type AS LONG
MEMBER GET PDFCompressionGreyCompressionChoice <1073938493> () AS LONG
MEMBER LET PDFCompressionGreyCompressionChoice <1073938493> () ' Parameter Type AS LONG
MEMBER GET PDFCompressionGreyCompressionJPEGHighFactor <1073938494> () AS DOUBLE
MEMBER LET PDFCompressionGreyCompressionJPEGHighFactor <1073938494> () ' Parameter Type AS DOUBLE
MEMBER GET PDFCompressionGreyCompressionJPEGLowFactor <1073938495> () AS DOUBLE
MEMBER LET PDFCompressionGreyCompressionJPEGLowFactor <1073938495> () ' Parameter Type AS DOUBLE
MEMBER GET PDFCompressionGreyCompressionJPEGManualFactor <1073938608> () AS DOUBLE
MEMBER LET PDFCompressionGreyCompressionJPEGManualFactor <1073938608> () ' Parameter Type AS DOUBLE
MEMBER GET PDFCompressionGreyCompressionJPEGMaximumFactor <1073938496> () AS DOUBLE
MEMBER LET PDFCompressionGreyCompressionJPEGMaximumFactor <1073938496> () ' Parameter Type AS DOUBLE
MEMBER GET PDFCompressionGreyCompressionJPEGMediumFactor <1073938497> () AS DOUBLE
MEMBER LET PDFCompressionGreyCompressionJPEGMediumFactor <1073938497> () ' Parameter Type AS DOUBLE
MEMBER GET PDFCompressionGreyCompressionJPEGMinimumFactor <1073938498> () AS DOUBLE
MEMBER LET PDFCompressionGreyCompressionJPEGMinimumFactor <1073938498> () ' Parameter Type AS DOUBLE
MEMBER GET PDFCompressionGreyResample <1073938499> () AS LONG
MEMBER LET PDFCompressionGreyResample <1073938499> () ' Parameter Type AS LONG
MEMBER GET PDFCompressionGreyResampleChoice <1073938500> () AS LONG
MEMBER LET PDFCompressionGreyResampleChoice <1073938500> () ' Parameter Type AS LONG
MEMBER GET PDFCompressionGreyResolution <1073938501> () AS LONG
MEMBER LET PDFCompressionGreyResolution <1073938501> () ' Parameter Type AS LONG
MEMBER GET PDFCompressionMonoCompression <1073938502> () AS LONG
MEMBER LET PDFCompressionMonoCompression <1073938502> () ' Parameter Type AS LONG
MEMBER GET PDFCompressionMonoCompressionChoice <1073938503> () AS LONG
MEMBER LET PDFCompressionMonoCompressionChoice <1073938503> () ' Parameter Type AS LONG
MEMBER GET PDFCompressionMonoResample <1073938504> () AS LONG
MEMBER LET PDFCompressionMonoResample <1073938504> () ' Parameter Type AS LONG
MEMBER GET PDFCompressionMonoResampleChoice <1073938505> () AS LONG
MEMBER LET PDFCompressionMonoResampleChoice <1073938505> () ' Parameter Type AS LONG
MEMBER GET PDFCompressionMonoResolution <1073938506> () AS LONG
MEMBER LET PDFCompressionMonoResolution <1073938506> () ' Parameter Type AS LONG
MEMBER GET PDFCompressionTextCompression <1073938507> () AS LONG
MEMBER LET PDFCompressionTextCompression <1073938507> () ' Parameter Type AS LONG
MEMBER GET PDFDisallowCopy <1073938508> () AS LONG
MEMBER LET PDFDisallowCopy <1073938508> () ' Parameter Type AS LONG
MEMBER GET PDFDisallowModifyAnnotations <1073938509> () AS LONG
MEMBER LET PDFDisallowModifyAnnotations <1073938509> () ' Parameter Type AS LONG
MEMBER GET PDFDisallowModifyContents <1073938510> () AS LONG
MEMBER LET PDFDisallowModifyContents <1073938510> () ' Parameter Type AS LONG
MEMBER GET PDFDisallowPrinting <1073938511> () AS LONG
MEMBER LET PDFDisallowPrinting <1073938511> () ' Parameter Type AS LONG
MEMBER GET PDFEncryptor <1073938512> () AS LONG
MEMBER LET PDFEncryptor <1073938512> () ' Parameter Type AS LONG
MEMBER GET PDFFontsEmbedAll <1073938513> () AS LONG
MEMBER LET PDFFontsEmbedAll <1073938513> () ' Parameter Type AS LONG
MEMBER GET PDFFontsSubSetFonts <1073938514> () AS LONG
MEMBER LET PDFFontsSubSetFonts <1073938514> () ' Parameter Type AS LONG
MEMBER GET PDFFontsSubSetFontsPercent <1073938515> () AS LONG
MEMBER LET PDFFontsSubSetFontsPercent <1073938515> () ' Parameter Type AS LONG
MEMBER GET PDFGeneralASCII85 <1073938516> () AS LONG
MEMBER LET PDFGeneralASCII85 <1073938516> () ' Parameter Type AS LONG
MEMBER GET PDFGeneralAutorotate <1073938517> () AS LONG
MEMBER LET PDFGeneralAutorotate <1073938517> () ' Parameter Type AS LONG
MEMBER GET PDFGeneralCompatibility <1073938518> () AS LONG
MEMBER LET PDFGeneralCompatibility <1073938518> () ' Parameter Type AS LONG
MEMBER GET PDFGeneralDefault <1073938519> () AS LONG
MEMBER LET PDFGeneralDefault <1073938519> () ' Parameter Type AS LONG
MEMBER GET PDFGeneralOverprint <1073938520> () AS LONG
MEMBER LET PDFGeneralOverprint <1073938520> () ' Parameter Type AS LONG
MEMBER GET PDFGeneralResolution <1073938521> () AS LONG
MEMBER LET PDFGeneralResolution <1073938521> () ' Parameter Type AS LONG
MEMBER GET PDFHighEncryption <1073938522> () AS LONG
MEMBER LET PDFHighEncryption <1073938522> () ' Parameter Type AS LONG
MEMBER GET PDFLowEncryption <1073938523> () AS LONG
MEMBER LET PDFLowEncryption <1073938523> () ' Parameter Type AS LONG
MEMBER GET PDFOptimize <1073938524> () AS LONG
MEMBER LET PDFOptimize <1073938524> () ' Parameter Type AS LONG
MEMBER GET PDFOwnerPass <1073938525> () AS LONG
MEMBER LET PDFOwnerPass <1073938525> () ' Parameter Type AS LONG
MEMBER GET PDFOwnerPasswordString <1073938526> () AS STRING
MEMBER LET PDFOwnerPasswordString <1073938526> () ' Parameter Type AS STRING
MEMBER GET PDFSigningMultiSignature <1073938527> () AS LONG
MEMBER LET PDFSigningMultiSignature <1073938527> () ' Parameter Type AS LONG
MEMBER GET PDFSigningPFXFile <1073938528> () AS STRING
MEMBER LET PDFSigningPFXFile <1073938528> () ' Parameter Type AS STRING
MEMBER GET PDFSigningPFXFilePassword <1073938529> () AS STRING
MEMBER LET PDFSigningPFXFilePassword <1073938529> () ' Parameter Type AS STRING
MEMBER GET PDFSigningSignatureContact <1073938530> () AS STRING
MEMBER LET PDFSigningSignatureContact <1073938530> () ' Parameter Type AS STRING
MEMBER GET PDFSigningSignatureLeftX <1073938531> () AS DOUBLE
MEMBER LET PDFSigningSignatureLeftX <1073938531> () ' Parameter Type AS DOUBLE
MEMBER GET PDFSigningSignatureLeftY <1073938532> () AS DOUBLE
MEMBER LET PDFSigningSignatureLeftY <1073938532> () ' Parameter Type AS DOUBLE
MEMBER GET PDFSigningSignatureLocation <1073938533> () AS STRING
MEMBER LET PDFSigningSignatureLocation <1073938533> () ' Parameter Type AS STRING
MEMBER GET PDFSigningSignatureOnPage <1073938609> () AS LONG
MEMBER LET PDFSigningSignatureOnPage <1073938609> () ' Parameter Type AS LONG
MEMBER GET PDFSigningSignatureReason <1073938534> () AS STRING
MEMBER LET PDFSigningSignatureReason <1073938534> () ' Parameter Type AS STRING
MEMBER GET PDFSigningSignatureRightX <1073938535> () AS DOUBLE
MEMBER LET PDFSigningSignatureRightX <1073938535> () ' Parameter Type AS DOUBLE
MEMBER GET PDFSigningSignatureRightY <1073938536> () AS DOUBLE
MEMBER LET PDFSigningSignatureRightY <1073938536> () ' Parameter Type AS DOUBLE
MEMBER GET PDFSigningSignatureVisible <1073938537> () AS LONG
MEMBER LET PDFSigningSignatureVisible <1073938537> () ' Parameter Type AS LONG
MEMBER GET PDFSigningSignPDF <1073938538> () AS LONG
MEMBER LET PDFSigningSignPDF <1073938538> () ' Parameter Type AS LONG
MEMBER GET PDFUpdateMetadata <1073938539> () AS LONG
MEMBER LET PDFUpdateMetadata <1073938539> () ' Parameter Type AS LONG
MEMBER GET PDFUserPass <1073938540> () AS LONG
MEMBER LET PDFUserPass <1073938540> () ' Parameter Type AS LONG
MEMBER GET PDFUserPasswordString <1073938541> () AS STRING
MEMBER LET PDFUserPasswordString <1073938541> () ' Parameter Type AS STRING
MEMBER GET PDFUseSecurity <1073938542> () AS LONG
MEMBER LET PDFUseSecurity <1073938542> () ' Parameter Type AS LONG
MEMBER GET PNGColorscount <1073938543> () AS LONG
MEMBER LET PNGColorscount <1073938543> () ' Parameter Type AS LONG
MEMBER GET PNGResolution <1073938544> () AS LONG
MEMBER LET PNGResolution <1073938544> () ' Parameter Type AS LONG
MEMBER GET PrintAfterSaving <1073938545> () AS LONG
MEMBER LET PrintAfterSaving <1073938545> () ' Parameter Type AS LONG
MEMBER GET PrintAfterSavingBitsPerPixel <1073938610> () AS LONG
MEMBER LET PrintAfterSavingBitsPerPixel <1073938610> () ' Parameter Type AS LONG
MEMBER GET PrintAfterSavingDuplex <1073938546> () AS LONG
MEMBER LET PrintAfterSavingDuplex <1073938546> () ' Parameter Type AS LONG
MEMBER GET PrintAfterSavingMaxResolution <1073938611> () AS LONG
MEMBER LET PrintAfterSavingMaxResolution <1073938611> () ' Parameter Type AS LONG
MEMBER GET PrintAfterSavingMaxResolutionEnabled <1073938612> () AS LONG
MEMBER LET PrintAfterSavingMaxResolutionEnabled <1073938612> () ' Parameter Type AS LONG
MEMBER GET PrintAfterSavingNoCancel <1073938547> () AS LONG
MEMBER LET PrintAfterSavingNoCancel <1073938547> () ' Parameter Type AS LONG
MEMBER GET PrintAfterSavingPrinter <1073938548> () AS STRING
MEMBER LET PrintAfterSavingPrinter <1073938548> () ' Parameter Type AS STRING
MEMBER GET PrintAfterSavingQueryUser <1073938549> () AS LONG
MEMBER LET PrintAfterSavingQueryUser <1073938549> () ' Parameter Type AS LONG
MEMBER GET PrintAfterSavingTumble <1073938550> () AS LONG
MEMBER LET PrintAfterSavingTumble <1073938550> () ' Parameter Type AS LONG
MEMBER GET PrinterStop <1073938551> () AS LONG
MEMBER LET PrinterStop <1073938551> () ' Parameter Type AS LONG
MEMBER GET PrinterTemppath <1073938552> () AS STRING
MEMBER LET PrinterTemppath <1073938552> () ' Parameter Type AS STRING
MEMBER GET ProcessPriority <1073938553> () AS LONG
MEMBER LET ProcessPriority <1073938553> () ' Parameter Type AS LONG
MEMBER GET ProgramFont <1073938554> () AS STRING
MEMBER LET ProgramFont <1073938554> () ' Parameter Type AS STRING
MEMBER GET ProgramFontCharset <1073938555> () AS LONG
MEMBER LET ProgramFontCharset <1073938555> () ' Parameter Type AS LONG
MEMBER GET ProgramFontSize <1073938556> () AS LONG
MEMBER LET ProgramFontSize <1073938556> () ' Parameter Type AS LONG
MEMBER GET PSDColorsCount <1073938557> () AS LONG
MEMBER LET PSDColorsCount <1073938557> () ' Parameter Type AS LONG
MEMBER GET PSDResolution <1073938558> () AS LONG
MEMBER LET PSDResolution <1073938558> () ' Parameter Type AS LONG
MEMBER GET PSLanguageLevel <1073938559> () AS LONG
MEMBER LET PSLanguageLevel <1073938559> () ' Parameter Type AS LONG
MEMBER GET RAWColorsCount <1073938560> () AS LONG
MEMBER LET RAWColorsCount <1073938560> () ' Parameter Type AS LONG
MEMBER GET RAWResolution <1073938561> () AS LONG
MEMBER LET RAWResolution <1073938561> () ' Parameter Type AS LONG
MEMBER GET RemoveAllKnownFileExtensions <1073938562> () AS LONG
MEMBER LET RemoveAllKnownFileExtensions <1073938562> () ' Parameter Type AS LONG
MEMBER GET RemoveSpaces <1073938563> () AS LONG
MEMBER LET RemoveSpaces <1073938563> () ' Parameter Type AS LONG
MEMBER GET RunProgramAfterSaving <1073938564> () AS LONG
MEMBER LET RunProgramAfterSaving <1073938564> () ' Parameter Type AS LONG
MEMBER GET RunProgramAfterSavingProgramname <1073938565> () AS STRING
MEMBER LET RunProgramAfterSavingProgramname <1073938565> () ' Parameter Type AS STRING
MEMBER GET RunProgramAfterSavingProgramParameters <1073938566> () AS STRING
MEMBER LET RunProgramAfterSavingProgramParameters <1073938566> () ' Parameter Type AS STRING
MEMBER GET RunProgramAfterSavingWaitUntilReady <1073938567> () AS LONG
MEMBER LET RunProgramAfterSavingWaitUntilReady <1073938567> () ' Parameter Type AS LONG
MEMBER GET RunProgramAfterSavingWindowstyle <1073938568> () AS LONG
MEMBER LET RunProgramAfterSavingWindowstyle <1073938568> () ' Parameter Type AS LONG
MEMBER GET RunProgramBeforeSaving <1073938569> () AS LONG
MEMBER LET RunProgramBeforeSaving <1073938569> () ' Parameter Type AS LONG
MEMBER GET RunProgramBeforeSavingProgramname <1073938570> () AS STRING
MEMBER LET RunProgramBeforeSavingProgramname <1073938570> () ' Parameter Type AS STRING
MEMBER GET RunProgramBeforeSavingProgramParameters <1073938571> () AS STRING
MEMBER LET RunProgramBeforeSavingProgramParameters <1073938571> () ' Parameter Type AS STRING
MEMBER GET RunProgramBeforeSavingWindowstyle <1073938572> () AS LONG
MEMBER LET RunProgramBeforeSavingWindowstyle <1073938572> () ' Parameter Type AS LONG
MEMBER GET SaveFilename <1073938573> () AS STRING
MEMBER LET SaveFilename <1073938573> () ' Parameter Type AS STRING
MEMBER GET SendEmailAfterAutoSaving <1073938574> () AS LONG
MEMBER LET SendEmailAfterAutoSaving <1073938574> () ' Parameter Type AS LONG
MEMBER GET SendMailMethod <1073938575> () AS LONG
MEMBER LET SendMailMethod <1073938575> () ' Parameter Type AS LONG
MEMBER GET ShowAnimation <1073938576> () AS LONG
MEMBER LET ShowAnimation <1073938576> () ' Parameter Type AS LONG
MEMBER GET StampFontColor <1073938577> () AS STRING
MEMBER LET StampFontColor <1073938577> () ' Parameter Type AS STRING
MEMBER GET StampFontname <1073938578> () AS STRING
MEMBER LET StampFontname <1073938578> () ' Parameter Type AS STRING
MEMBER GET StampFontsize <1073938579> () AS LONG
MEMBER LET StampFontsize <1073938579> () ' Parameter Type AS LONG
MEMBER GET StampOutlineFontthickness <1073938580> () AS LONG
MEMBER LET StampOutlineFontthickness <1073938580> () ' Parameter Type AS LONG
MEMBER GET StampString <1073938581> () AS STRING
MEMBER LET StampString <1073938581> () ' Parameter Type AS STRING
MEMBER GET StampUseOutlineFont <1073938582> () AS LONG
MEMBER LET StampUseOutlineFont <1073938582> () ' Parameter Type AS LONG
MEMBER GET StandardAuthor <1073938583> () AS STRING
MEMBER LET StandardAuthor <1073938583> () ' Parameter Type AS STRING
MEMBER GET StandardCreationdate <1073938584> () AS STRING
MEMBER LET StandardCreationdate <1073938584> () ' Parameter Type AS STRING
MEMBER GET StandardDateformat <1073938585> () AS STRING
MEMBER LET StandardDateformat <1073938585> () ' Parameter Type AS STRING
MEMBER GET StandardKeywords <1073938586> () AS STRING
MEMBER LET StandardKeywords <1073938586> () ' Parameter Type AS STRING
MEMBER GET StandardMailDomain <1073938587> () AS STRING
MEMBER LET StandardMailDomain <1073938587> () ' Parameter Type AS STRING
MEMBER GET StandardModifydate <1073938588> () AS STRING
MEMBER LET StandardModifydate <1073938588> () ' Parameter Type AS STRING
MEMBER GET StandardSaveformat <1073938589> () AS LONG
MEMBER LET StandardSaveformat <1073938589> () ' Parameter Type AS LONG
MEMBER GET StandardSubject <1073938590> () AS STRING
MEMBER LET StandardSubject <1073938590> () ' Parameter Type AS STRING
MEMBER GET StandardTitle <1073938591> () AS STRING
MEMBER LET StandardTitle <1073938591> () ' Parameter Type AS STRING
MEMBER GET StartStandardProgram <1073938592> () AS LONG
MEMBER LET StartStandardProgram <1073938592> () ' Parameter Type AS LONG
MEMBER GET SVGResolution <1073938604> () AS LONG
MEMBER LET SVGResolution <1073938604> () ' Parameter Type AS LONG
MEMBER GET TIFFColorscount <1073938593> () AS LONG
MEMBER LET TIFFColorscount <1073938593> () ' Parameter Type AS LONG
MEMBER GET TIFFResolution <1073938594> () AS LONG
MEMBER LET TIFFResolution <1073938594> () ' Parameter Type AS LONG
MEMBER GET Toolbars <1073938595> () AS LONG
MEMBER LET Toolbars <1073938595> () ' Parameter Type AS LONG
MEMBER GET UpdateInterval <1073938605> () AS LONG
MEMBER LET UpdateInterval <1073938605> () ' Parameter Type AS LONG
MEMBER GET UseAutosave <1073938596> () AS LONG
MEMBER LET UseAutosave <1073938596> () ' Parameter Type AS LONG
MEMBER GET UseAutosaveDirectory <1073938597> () AS LONG
MEMBER LET UseAutosaveDirectory <1073938597> () ' Parameter Type AS LONG
MEMBER GET UseCreationDateNow <1073938598> () AS LONG
MEMBER LET UseCreationDateNow <1073938598> () ' Parameter Type AS LONG
MEMBER GET UseCustomPaperSize <1073938599> () AS STRING
MEMBER LET UseCustomPaperSize <1073938599> () ' Parameter Type AS STRING
MEMBER GET UseFixPapersize <1073938600> () AS LONG
MEMBER LET UseFixPapersize <1073938600> () ' Parameter Type AS LONG
MEMBER GET UseStandardAuthor <1073938601> () AS LONG
MEMBER LET UseStandardAuthor <1073938601> () ' Parameter Type AS LONG
END INTERFACE
#ENDIF ' /* __clsPDFCreatorOptions_DISPINTERFACE_DEFINED__ */
' ########################################################################################
' CoClass name = clsPDFCreatorError
' Interface name = _clsPDFCreatorError
' IID = {A030F401-6045-4942-A5F5-9CCBF2C1872D}
' Attributes = 4304 [&H10D0] [Hidden] [Dual] [Nonextensible] [Dispatchable]
' Inherited interface = IDispatch
' ########################################################################################
#IF NOT %DEF(%clsPDFCreatorError_DISPINTERFACE_DEFINED)
%clsPDFCreatorError_DISPINTERFACE_DEFINED = 1
INTERFACE IDBIND clsPDFCreatorError
MEMBER GET Number <1073938432> () AS LONG
MEMBER LET Number <1073938432> () ' Parameter Type AS LONG
MEMBER GET Description <1073938433> () AS STRING
MEMBER LET Description <1073938433> () ' Parameter Type AS STRING
END INTERFACE
#ENDIF ' /* __clsPDFCreatorError_DISPINTERFACE_DEFINED__ */
' ########################################################################################
' CoClass name = clsPDFCreatorInfoSpoolFile
' Interface name = _clsPDFCreatorInfoSpoolFile
' IID = {253F17D9-1678-4B0E-843E-A2D37C2C6B4E}
' Attributes = 4304 [&H10D0] [Hidden] [Dual] [Nonextensible] [Dispatchable]
' Inherited interface = IDispatch
' ########################################################################################
#IF NOT %DEF(%clsPDFCreatorInfoSpoolFile_DISPINTERFACE_DEFINED)
%clsPDFCreatorInfoSpoolFile_DISPINTERFACE_DEFINED = 1
INTERFACE IDBIND clsPDFCreatorInfoSpoolFile
MEMBER GET REDMON_PORT <1073938432> () AS STRING
MEMBER LET REDMON_PORT <1073938432> () ' Parameter Type AS STRING
MEMBER GET REDMON_JOB <1073938433> () AS STRING
MEMBER LET REDMON_JOB <1073938433> () ' Parameter Type AS STRING
MEMBER GET REDMON_PRINTER <1073938434> () AS STRING
MEMBER LET REDMON_PRINTER <1073938434> () ' Parameter Type AS STRING
MEMBER GET REDMON_MACHINE <1073938435> () AS STRING
MEMBER LET REDMON_MACHINE <1073938435> () ' Parameter Type AS STRING
MEMBER GET REDMON_USER <1073938436> () AS STRING
MEMBER LET REDMON_USER <1073938436> () ' Parameter Type AS STRING
MEMBER GET REDMON_DOCNAME <1073938437> () AS STRING
MEMBER LET REDMON_DOCNAME <1073938437> () ' Parameter Type AS STRING
MEMBER GET REDMON_FILENAME <1073938438> () AS STRING
MEMBER LET REDMON_FILENAME <1073938438> () ' Parameter Type AS STRING
MEMBER GET REDMON_SESSIONID <1073938439> () AS STRING
MEMBER LET REDMON_SESSIONID <1073938439> () ' Parameter Type AS STRING
MEMBER GET SpoolFilename <1073938440> () AS STRING
MEMBER LET SpoolFilename <1073938440> () ' Parameter Type AS STRING
MEMBER GET SpoolerAccount <1073938441> () AS STRING
MEMBER LET SpoolerAccount <1073938441> () ' Parameter Type AS STRING
MEMBER GET Computer <1073938442> () AS STRING
MEMBER LET Computer <1073938442> () ' Parameter Type AS STRING
MEMBER GET Created <1073938443> () AS STRING
MEMBER LET Created <1073938443> () ' Parameter Type AS STRING
END INTERFACE
#ENDIF ' /* __clsPDFCreatorInfoSpoolFile_DISPINTERFACE_DEFINED__ */
' ########################################################################################
' CoClass name = clsPDFCreator
' Interface name = _clsPDFCreator
' IID = {3F8935D8-B2F1-4511-8A12-1A958E4C9265}
' Attributes = 4304 [&H10D0] [Hidden] [Dual] [Nonextensible] [Dispatchable]
' Inherited interface = IDispatch
' ########################################################################################
#IF NOT %DEF(%clsPDFCreator_DISPINTERFACE_DEFINED)
%clsPDFCreator_DISPINTERFACE_DEFINED = 1
INTERFACE IDBIND clsPDFCreator
MEMBER GET cPrinterProfile <1745027172> (IN prm_Printername AS STRING<0>) AS STRING
MEMBER LET cPrinterProfile <1745027172> (IN prm_Printername AS STRING<0>) ' Parameter Type AS STRING
MEMBER GET cIsClosed <1745027171> () AS INTEGER
MEMBER GET cError <1745027138> () AS clsPDFCreatorError ' <dispinterface>
MEMBER GET cErrorDetail <1745027137> (IN prm_PropertyName AS STRING<0>) AS VARIANT
MEMBER CALL cErrorClear <1610809412> ()
MEMBER GET cGhostscriptVersion <1745027136> () AS STRING
MEMBER GET cOutputFilename <1745027135> () AS STRING
MEMBER GET cPDFCreatorApplicationPath <1745027134> () AS STRING
MEMBER GET cIsLogfileDialogDisplayed <1745027133> () AS INTEGER
MEMBER GET cIsOptionsDialogDisplayed <1745027132> () AS INTEGER
MEMBER GET cProgramRelease <1745027131> (OPTIONAL IN prm_WithBeta AS INTEGER<0>) AS STRING
MEMBER GET cProgramIsRunning <1745027130> () AS INTEGER
MEMBER GET cWindowsVersion <1745027129> () AS STRING
MEMBER GET cVisible <1745027128> () AS INTEGER
MEMBER LET cVisible <1745027128> () ' Parameter Type AS INTEGER
MEMBER GET cInstalledAsServer <1745027127> () AS INTEGER
MEMBER GET cPrinterStop <1745027126> () AS INTEGER
MEMBER LET cPrinterStop <1745027126> () ' Parameter Type AS INTEGER
MEMBER GET cOptionsNames <1745027125> () AS IDispatch ' _Collection <dispinterface>
MEMBER GET cOption <1745027124> (IN prm_PropertyName AS STRING<0>) AS VARIANT
MEMBER LET cOption <1745027124> (IN prm_PropertyName AS STRING<0>) ' Parameter Type AS VARIANT
MEMBER GET cOptionProfile <1745027123> (IN prm_ProfileName AS STRING<0>, _
IN prm_PropertyName AS STRING<1>) AS VARIANT
MEMBER LET cOptionProfile <1745027123> (IN prm_ProfileName AS STRING<0>, _
IN prm_PropertyName AS STRING<1>) ' Parameter Type AS VARIANT
MEMBER GET cOptions <1745027122> () AS clsPDFCreatorOptions ' <dispinterface>
MEMBER SET cOptions <1745027122> () ' Parameter Type AS clsPDFCreatorOptions
MEMBER GET cOptionsProfile <1745027121> (IN prm_ProfileName AS STRING<0>) AS clsPDFCreatorOptions ' <dispinterface>
MEMBER SET cOptionsProfile <1745027121> (IN prm_ProfileName AS STRING<0>) ' Parameter Type AS clsPDFCreatorOptions
MEMBER GET cStandardOption <1745027120> (IN prm_PropertyName AS STRING<0>) AS VARIANT
MEMBER GET cStandardOptions <1745027119> () AS clsPDFCreatorOptions ' <dispinterface>
MEMBER GET cPostscriptInfo <1745027118> (IN prm_PostscriptFilename AS STRING<0>, _
IN prm_PropertyName AS STRING<1>) AS STRING
MEMBER GET cPrintjobInfos <1745027117> (IN prm_PrintjobFilename AS STRING<0>) AS clsPDFCreatorInfoSpoolFile ' <dispinterface>
MEMBER GET cPrintjobInfo <1745027116> (IN prm_PrintjobFilename AS STRING<0>, _
IN prm_PropertyName AS STRING<1>) AS STRING
MEMBER GET cCountOfPrintjobs <1745027115> () AS LONG
MEMBER GET cPrintjobFilename <1745027114> (IN prm_JobNumber AS LONG<0>) AS STRING
MEMBER GET cDefaultPrinter <1745027113> () AS STRING
MEMBER LET cDefaultPrinter <1745027113> () ' Parameter Type AS STRING
MEMBER GET cStopURLPrinting <1745027112> () AS INTEGER
MEMBER LET cStopURLPrinting <1745027112> () ' Parameter Type AS INTEGER
MEMBER GET cWindowState <1745027111> () AS LONG
MEMBER LET cWindowState <1745027111> () ' Parameter Type AS LONG
MEMBER GET cIsConverted <1745027110> () AS INTEGER
MEMBER LET cIsConverted <1745027110> () ' Parameter Type AS INTEGER
MEMBER GET cInstanceCounter <1745027109> () AS LONG
MEMBER CALL cIsAdministrator <1610809447> () AS INTEGER
MEMBER CALL cPrinterIsInstalled <1610809448> (IN prm_Printername AS STRING<0>) AS INTEGER
MEMBER CALL cAddPDFCreatorPrinter <1610809449> (IN prm_Printername AS STRING<0>, _
OPTIONAL IN prm_ProfileName AS STRING<1>) AS INTEGER
MEMBER CALL cProfileExists <1610809450> (IN prm_ProfileName AS STRING<0>) AS INTEGER
MEMBER CALL cDeletePDFCreatorPrinter <1610809451> (IN prm_Printername AS STRING<0>) AS INTEGER
MEMBER CALL cGetProfileNames <1610809452> () AS IDispatch ' _Collection <dispinterface>
MEMBER CALL cAddProfile <1610809453> (IN prm_ProfileName AS STRING<0>, _
OPTIONAL IN prm_Options1 AS clsPDFCreatorOptions<1>) AS INTEGER
MEMBER CALL cRenameProfile <1610809454> (IN prm_OldProfileName AS STRING<0>, _
IN prm_NewProfileName AS STRING<1>) AS INTEGER
MEMBER CALL cDeleteProfile <1610809455> (IN prm_ProfileName AS STRING<0>) AS INTEGER
MEMBER CALL cAddPrintjob <1610809413> (IN prm_filename AS STRING<0>)
MEMBER CALL cDeletePrintjob <1610809414> (IN prm_JobNumber AS LONG<0>)
MEMBER CALL cMovePrintjobBottom <1610809415> (IN prm_JobNumber AS LONG<0>)
MEMBER CALL cMovePrintjobTop <1610809416> (IN prm_JobNumber AS LONG<0>)
MEMBER CALL cMovePrintjobUp <1610809417> (IN prm_JobNumber AS LONG<0>)
MEMBER CALL cMovePrintjobDown <1610809418> (IN prm_JobNumber AS LONG<0>)
MEMBER CALL cClose <1610809419> () AS INTEGER
MEMBER CALL cStart <1610809420> (OPTIONAL IN Params AS STRING<0>, _
OPTIONAL IN prm_ForceInitialize AS INTEGER<1>) AS INTEGER
MEMBER CALL cClearCache <1610809421> ()
MEMBER CALL cClearLogfile <1610809422> ()
MEMBER CALL cConvertPostscriptfile <1610809423> (IN prm_InputFilename AS STRING<0>, _
IN prm_OutputFilename AS STRING<1>)
MEMBER CALL cConvertFile <1610809424> (IN prm_InputFilename AS STRING<0>, _
IN prm_OutputFilename AS STRING<1>, _
OPTIONAL IN prm_SubFormat AS STRING<2>)
MEMBER CALL cTestEvent <1610809425> (IN prm_EventName AS STRING<0>)
MEMBER CALL cShowLogfileDialog <1610809426> (IN prm_value AS INTEGER<0>)
MEMBER CALL cShowOptionsDialog <1610809427> (IN prm_value AS INTEGER<0>)
MEMBER CALL cSendMail <1610809428> (IN prm_OutputFilename AS STRING<0>, _
IN prm_Recipients AS STRING<1>)
MEMBER CALL cIsPrintable <1610809429> (IN prm_filename AS STRING<0>) AS INTEGER
MEMBER CALL cCombineAll <1610809430> ()
MEMBER CALL cGetPDFCreatorPrinters <1610809431> () AS IDispatch ' _Collection <dispinterface>
MEMBER CALL cGetPrinterProfiles <1610809456> () AS IDispatch ' _Collection <dispinterface>
MEMBER CALL cGetLogfile <1610809432> () AS STRING
MEMBER CALL cWriteToLogfile <1610809433> (IN prm_LogStr AS STRING<0>)
MEMBER CALL cPrintFile <1610809434> (IN prm_filename AS STRING<0>)
MEMBER CALL cPrintURL <1610809435> (IN prm_URL AS STRING<0>, _
OPTIONAL IN prm_TimeBetweenLoadAndPrint AS LONG<1>)
MEMBER CALL cPrintPDFCreatorTestpage <1610809436> ()
MEMBER CALL cPrintPrinterTestpage <1610809437> (OPTIONAL IN prm_Printername AS STRING<0>)
MEMBER CALL cReadOptions <1610809438> (OPTIONAL IN prm_ProfileName AS STRING<0>) AS clsPDFCreatorOptions ' <dispinterface>
MEMBER CALL cSaveOptions <1610809439> (OPTIONAL IN prm_Options1 AS VARIANT<0>, _
OPTIONAL IN prm_ProfileName AS STRING<1>)
MEMBER CALL cReadOptionsFromFile <1610809440> (IN prm_INIFilename AS STRING<0>) AS clsPDFCreatorOptions ' <dispinterface>
MEMBER CALL cSaveOptionsToFile <1610809441> (IN prm_INIFilename AS STRING<0>, _
OPTIONAL IN prm_Options1 AS VARIANT<1>)
MEMBER CALL cGhostscriptRun <1610809442> (INOUT prm_Arguments AS DWORD<0>) AS INTEGER
END INTERFACE
#ENDIF ' /* __clsPDFCreator_DISPINTERFACE_DEFINED__ */
' ########################################################################################
' CoClass name = clsTools
' Interface name = _clsTools
' IID = {6CC5DA2E-E74A-4948-892C-792378C1F23D}
' Attributes = 4304 [&H10D0] [Hidden] [Dual] [Nonextensible] [Dispatchable]
' Inherited interface = IDispatch
' ########################################################################################
#IF NOT %DEF(%clsTools_DISPINTERFACE_DEFINED)
%clsTools_DISPINTERFACE_DEFINED = 1
INTERFACE IDBIND clsTools
MEMBER CALL cOpenFileDialog <1610809344> (INOUT prm_files AS VARIANT<0>, _
OPTIONAL IN prm_InitFilename AS STRING<1>, _
OPTIONAL IN prm_Filter AS STRING<2>, _
OPTIONAL IN prm_DefaultFileExtension AS STRING<3>, _
OPTIONAL IN prm_InitDir AS STRING<4>, _
OPTIONAL IN prm_DialogTitle AS STRING<5>, _
OPTIONAL IN prm_Flags AS LONG<6>, _
OPTIONAL IN prm_hwnd AS LONG<7>, _
OPTIONAL IN prm_FilterIndex AS LONG<8>) AS LONG
MEMBER CALL cSaveFileDialog <1610809345> (INOUT prm_filename AS VARIANT<0>, _
OPTIONAL INOUT prm_InitFilename AS STRING<1>, _
OPTIONAL INOUT prm_Filter AS STRING<2>, _
OPTIONAL INOUT prm_DefaultFileExtension AS STRING<3>, _
OPTIONAL INOUT prm_InitDir AS STRING<4>, _
OPTIONAL INOUT prm_DialogTitle AS STRING<5>, _
OPTIONAL INOUT prm_Flags AS LONG<6>, _
OPTIONAL INOUT prm_hwnd AS LONG<7>, _
OPTIONAL INOUT prm_FilterIndex AS LONG<8>) AS LONG
END INTERFACE
#ENDIF ' /* __clsTools_DISPINTERFACE_DEFINED__ */
' ########################################################################################
' CoClass name = clsUpdate
' Interface name = _clsUpdate
' IID = {A235533B-C688-43F0-80D3-D87BEAC96D05}
' Attributes = 4304 [&H10D0] [Hidden] [Dual] [Nonextensible] [Dispatchable]
' Inherited interface = IDispatch
' ########################################################################################
#IF NOT %DEF(%clsUpdate_DISPINTERFACE_DEFINED)
%clsUpdate_DISPINTERFACE_DEFINED = 1
INTERFACE IDBIND clsUpdate
MEMBER CALL CheckForUpdates <1610809344> (OPTIONAL INOUT prm_ShowMessageNoNewUpdates AS INTEGER<0>, _
OPTIONAL INOUT prm_ShowErrorMessage AS INTEGER<1>, _
OPTIONAL INOUT prm_TimeOutInMs AS LONG<2>)
END INTERFACE
#ENDIF ' /* __clsUpdate_DISPINTERFACE_DEFINED__ */
Something like that:
DIM PDFCreator1 AS clsPDFCreator
DIM Opt AS clsPDFCreatorOptions
PDFCreator1 = NEWCOM $CLSID_clsPDFCreator
OBJECT GET PDFCreator1.cOptions TO Opt
OBJECT LET Opt.AutosaveDirectory = Path
OBJECT LET Opt.AutosaveFilename = Filename
OBJECT LET Opt.UseAutosave = 1
OBJECT LET Opt.UseAutosaveDirectory = 1
OBJECT LET Opt.AutosaveFormat = 0 ' PDF
OBJECT SET PDFCreator1.cOptions = Opt
the code sample you posted dosn't create even the first object
I have tried it with Pb com browser and this code sample
DIM Obj AS DISPATCH
DIM Opt AS IDISPATCH
DIM vr AS VARIANT
LET Obj = NEWCOM $PROGID_PDFCreator_clsPDFCreatorclsPDFCreator
IF ISFALSE ISOBJECT(Obj) THEN MSGBOX "error"
LET Vr = "/NoProcessingAtStartup"
OBJECT CALL Obj.cStart() TO Vr
IF ISFALSE VARIANT#(Vr) THEN MSGBOX "Nogood":EXIT FUNCTION
OBJECT CALL Obj.cClearCache
OBJECT GET Obj.cOptions TO OPT
OBJECT GET Opt.AutosaveFileName TO Vr
MSGBOX VARIANT$(Vr)
LET Vr = "MyFile.pdf"
OBJECT SET Opt.AutosaveFileName = Vr
LET Vr = OPT
OBJECT LET Obj.cOptions = Vr
OBJECT CALL Obj.cSaveOptions
OBJECT CALL Obj.cClose
SET obj = NOTHING
SET OPT = NOTHING
It's seem that this code working ok. Does it look right ?.