PDFsharp & MigraDoc Foundation

PdfSharp.Pdf.IO.PdfReader.Open(System.IO.Path.Combine(path, "Document.pdf"))

 PdfSharp.Pdf.IO.PdfDocumentOpenMode.Import

    Sub Main()

        CreatDocument("testpdf1.pdf")
        CreatDocument("testpdf2.pdf")

        Dim merger As New PdfMerge.SplitMergeLib.SplitMergeCmdFile()
        Dim MergeListItem As New PdfMerge.SplitMergeLib.MergeListFiles()
        MergeListItem.Path = "testpdf1.pdf"
        MergeListItem.Level = 0
        merger.MergeListFileArray.Add(MergeListItem)

        Dim MergeListItem2 As New PdfMerge.SplitMergeLib.MergeListFiles()
        MergeListItem2.Path = "testpdf2.pdf"
        MergeListItem2.Level = 0
        merger.MergeListFileArray.Add(MergeListItem2)

        MergeDocuments(merger)

        Console.ReadLine()
    End Sub

    Public Sub MergeDocuments(ByVal merger As PdfMerge.SplitMergeLib.SplitMergeCmdFile)
        Dim psm As New PdfMerge.SplitMergeLib.PdfSharpSplitterMerger()

        Dim line As String = ""
        For Each merge As PdfMerge.SplitMergeLib.MergeListFiles In merger.MergeListFileArray
            line = merge.Descriptor

            Dim pagelst As String = merge.Pages
            Dim page As Integer = 1

            Dim pagearr As String() = pagelst.Split(New Char() {"-"})
            Dim start As Integer = 0
            Dim endp As Integer = 0
            Dim ps As New ArrayList()

            Try
                start = Integer.Parse(pagearr(0))
                endp = start
                If pagearr.Length > 1 Then
                    endp = Integer.Parse(pagearr(1))
                End If
                If endp > 0 Then
                    For x As Integer = start To endp
                        ps.Add(x - 1)
                    Next
                End If
            Catch ex As Exception

            End Try

            If (ps.Count > 0) Then
                page += psm.Add(merge.Path, ps.ToArray(System.Type.GetType("Integer")))
            Else
                page += psm.Add(merge.Path)
            End If

            Dim err As String = ""
            psm.AddBookmarksFromFile("", merge.Level, True, err)
        Next

        psm.Finish("output.pdf", Nothing, False, 1)
    End Sub

    Public Sub CreatDocument(ByVal name As String)

        Dim doc As New MigraDoc.DocumentObjectModel.Document()
        doc.Info.Title = "name"

        Dim section As MigraDoc.DocumentObjectModel.Section = doc.AddSection()
        section.PageSetup.TopMargin = "1.0cm"

        Dim header As MigraDoc.DocumentObjectModel.HeaderFooter = section.Headers.Primary

        Dim paragraph As MigraDoc.DocumentObjectModel.Paragraph = section.AddParagraph()
        paragraph.AddText("this is text on page 1")
        paragraph.AddBookmark("Page 1")
        paragraph.Format.OutlineLevel = MigraDoc.DocumentObjectModel.OutlineLevel.Level1
        paragraph.ExpandOutline = False

        section = doc.AddSection()

        paragraph = section.AddParagraph()
        paragraph.AddText("this is text on page 2")
        paragraph.AddBookmark("Page 2")
        paragraph.Format.OutlineLevel = MigraDoc.DocumentObjectModel.OutlineLevel.Level1
        paragraph.ExpandOutline = False

        MigraDoc.DocumentObjectModel.IO.DdlWriter.WriteToFile(doc, "MigraDoc.mdddl")
        Dim DocRenderer As New MigraDoc.Rendering.PdfDocumentRenderer(True, Global.PdfSharp.Pdf.PdfFontEmbedding.Always)

        DocRenderer.Document = doc
        DocRenderer.RenderDocument()

        DocRenderer.PdfDocument.Save(name)

        DocRenderer.PdfDocument.Close()
        DocRenderer.PdfDocument.Dispose()

    End Sub

    /// <summary>
    /// Gets or sets a boolean value indicating whether or not to expand the outlines defined by paragraphs.
    /// </summary>
    public bool ExpandOutline
    {
        get { return this.expandOutline; }
        set { this.expandOutline = value; }
    }
    internal bool expandOutline = true;

 function internal void AddOutline(int level, string title, PdfPage destinationPage)

 AddOutline(int level, string title, PdfPage destinationPage, bool expandOutline)

PdfOutline outline = outlines.Add(" ", destinationPage, true);
// ... and
outlines.Add(title, destinationPage, true);

PdfOutline outline = outlines.Add(" ", destinationPage, expandOutline );
//... and
outlines.Add(title, destinationPage, expandOutline );

 
Internal override void Render()

// ... stuff before
      InitRendering();
      if ((int)this.paragraph.Format.OutlineLevel >= 1 && this.gfx.PdfPage != null) // Don't call GetOutlineTitle() in vain
        this.documentRenderer.AddOutline((int)this.paragraph.Format.OutlineLevel, GetOutlineTitle(), this.gfx.PdfPage );
// ... stuff After

// ... stuff before
      InitRendering();
      if ((int)this.paragraph.Format.OutlineLevel >= 1 && this.gfx.PdfPage != null) // Don't call GetOutlineTitle() in vain
        this.documentRenderer.AddOutline((int)this.paragraph.Format.OutlineLevel, GetOutlineTitle(), this.gfx.PdfPage, this.paragraph.ExpandOutline );
// ... stuff After