' ---------------------------- Create() ------------------------------
''' <summary>
'''   Creates an XpsDocument using the Xps.Packaging APIs.</summary>
''' <param name="xpsDocument">
'''   The XpsDocument to create.</param>
''' <remarks>
'''   The Xps.Packaging APIs are used to create the DocumentSequence,
'''   FixedDocument, and FixedPage "PackageParts" of an XpsDocument.
'''   The applicationt is responsible for using the XmlWriter to
'''   serialize the page markup and for supplying the streams for any
'''   font or image resources.</remarks>
Public Sub Create(xpsDocument As XpsDocument)
    ' Create the document sequence
    Dim docSeqWriter As IXpsFixedDocumentSequenceWriter = xpsDocument.AddFixedDocumentSequence()

    ' Create the document
    Dim docWriter As IXpsFixedDocumentWriter = docSeqWriter.AddFixedDocument()

    ' Create the Page
    Dim pageWriter As IXpsFixedPageWriter = docWriter.AddFixedPage()

    ' Get the XmlWriter
    Dim xmlWriter As XmlWriter = pageWriter.XmlWriter

    ' Write the mark up according the XPS Specifications
    BeginFixedPage(xmlWriter)
    AddGlyphRun(pageWriter, xmlWriter, "This is a photo of the famous Notre Dame in Paris", 16, 50, 50, "C:\Windows\fonts\arial.ttf")

    AddImage(pageWriter, xmlWriter, "ParisNotreDame.jpg", XpsImageType.JpegImageType, 100, 100, 600, 1100)

    ' End the page.
    EndFixedPage(xmlWriter)

    ' Close the page, document, and document sequence.
    pageWriter.Commit()
    docWriter.Commit()
    docSeqWriter.Commit()
    _fontDictionary.Clear()
End Sub