PublishDocument

'---------------------------------------------------------------------------------------------------------------
' Author        :   martin.mueller@mum.ch
' Description   :   Registers the specified objDoc at the publisher for the specified strJobId with the specified
'               :   strMergeId
' objDoc        :   The document to register.
' strJobId      :   The name of the job to process.
' strMergeId    :   The id of a set of documents whose pdfs are merged into one single pdf.
'---------------------------------------------------------------------------------------------------------------
Sub PublishDocument(objDoc, strJobId, strMergeId)
    Dim objPublisher
    'Create the script object.
    Set objPublisher = New PublisherScriptObject
    'Register the selected document for publishing.
    Call objPublisher.Queue.RegisterDocument("", strJobId, objDoc.ID, objDoc.VersionID, , strMergeId, , , Nothing)
    'Release the script object.
    Set objPublisher = Nothing
End Sub