Need help Translating small vb segment to Pb

[Gafny Jacob]

I need help translating this vb code segmnet to Pb

Code Select Expand


   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

Code Select Expand


' ########################################################################################
' 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__ */


[José Roca]

Something like that:

Code Select Expand


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


[Gafny Jacob]

the code sample you posted dosn't create even the first object

I have tried it with Pb com browser and this code sample

Code Select Expand


    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 ?.