Exporting PDF, HasSaveCopyAsOptions returns false

[etckerry]

Hello,

I have a VB.NET routine that exports a pdf using the TranslatorAddIn interface.  I copied the example from the api help.

The pdf is created, but only the first sheet of the drawing is exported.  I uncommented the following line in the example code, and still no change:

oOptions.Value("Sheet_Range") = kPrintAllSheets

I added a message box, to make sure I was reaching that line, and I found that I was not in fact reaching that line.  Why is this?  In some posts here related to dwf exporting also using the TranslatorAddIn, the first argument of HasSaveCopyAsOptions was oDataMedium instead of oDocument, so I tried that, too, but still no change.

Here is the code of the export to PDF routine from the api example:

Public Sub PublishPDF()
    ' Get the PDF translator Add-In.
    Dim PDFAddIn As TranslatorAddIn
    Set PDFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")

    'Set a reference to the active document (the document to be published).
    Dim oDocument As Document
    Set oDocument = ThisApplication.ActiveDocument

    Dim oContext As TranslationContext
    Set oContext = ThisApplication.TransientObjects.CreateTranslationContext
    oContext.Type = kFileBrowseIOMechanism

    ' Create a NameValueMap object
    Dim oOptions As NameValueMap
    Set oOptions = ThisApplication.TransientObjects.CreateNameValueMap

    ' Create a DataMedium object
    Dim oDataMedium As DataMedium
    Set oDataMedium = ThisApplication.TransientObjects.CreateDataMedium

    ' Check whether the translator has 'SaveCopyAs' options
    If PDFAddIn.HasSaveCopyAsOptions(oDocument, oContext, oOptions) Then

        ' Options for drawings...

        oOptions.Value("All_Color_AS_Black") = 0

        'oOptions.Value("Remove_Line_Weights") = 0
        'oOptions.Value("Vector_Resolution") = 400
        'oOptions.Value("Sheet_Range") = kPrintAllSheets
        'oOptions.Value("Custom_Begin_Sheet") = 2
        'oOptions.Value("Custom_End_Sheet") = 4

    End If

    'Set the destination file name
    oDataMedium.FileName = "c:\temp\test.pdf"

    'Publish document.
    PDFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)
End Sub

 Thanks,

Kerry

[Anonymous · Accepted solution]

Hi Kerry,

One of the lines in the code is wrong,

oContext.Type = kFileBrowseIOMechanism

if you change it to this below it should work fine for you.

oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism

Ash