PDFsharp & MigraDoc Foundation

        Private Sub Generate()
            Dim Started As DateTime =DateTime.Now
            Try               
                _Logger.Info("started") 'Log4Net Logger
                GetValues()
                CreateDoc()
                AddFrontPage() '<-- Here the Problem seems to occure
                AddTOC()
                AddTable1()
                AddTable2()
                AddTable3()
                AddTable4()
                AddTable5()
                RenderAndSendMail()
                _Logger.Info(_Rec.ShopGroupToProcess.GroupDescription & " - generated in " & DateTime.Now.Subtract(Started).TotalSeconds.ToString("#,##0") & " seconds")
            Catch ex As Exception
                Throw New Exception(ex.Message)
            End Try
        End Sub

        Private Sub CreateDoc()
            Try
                _Doc = New Document
                _Doc.Info.Title = "Report for " & _Rec.ShopGroupToProcess.GroupDescription & " " & _MaxDate.ToString("dd.MM.yyyy")
                _Doc.Info.Author = "Automated report generator by..."
            Catch ex As Exception
                Throw New Exception(".CreateDoc - " & ex.Message)
            End Try
        End Sub

        Private Sub AddFrontPage()
            Try
                Dim Sec As Section = _Doc.AddSection
                Dim Setup As PageSetup = _Doc.DefaultPageSetup.Clone

                With Setup
                    .TopMargin = Unit.FromCentimeter(3.5)
                    .LeftMargin = Unit.FromCentimeter(1)
                    .RightMargin = Unit.FromCentimeter(1)
                    .BottomMargin = Unit.FromCentimeter(1.5)
                    .Orientation = Orientation.Landscape
                    .PageFormat = PageFormat.A4
                End With

                Sec.PageSetup = Setup

                Dim Para As Paragraph = Sec.AddParagraph()
                Para.Format.Alignment = ParagraphAlignment.Center
                Para.Format.SpaceBefore = Unit.FromCentimeter(3)
                Para.AddImage("Images\CompanyLogo.png")
               
                Para = Sec.AddParagraph("Report for " & _MaxDate.ToString("dd.MM.yyyy"))           
                Para.Format.Font.Size = Unit.FromPoint(15)
                Para.Format.Font.Color = Colors.DarkGreen
                Para.Format.Font.Name = "Arial Black"
                Para.Format.Alignment = ParagraphAlignment.Center

                Para = Sec.AddParagraph(_Rec.ShopGroupToProcess.GroupDescription)
                Para.Format.Font.Size = Unit.FromPoint(15)
                Para.Format.Font.Color = Colors.DarkGreen
                Para.Format.Font.Name = "Arial Black"
                Para.Format.Alignment = ParagraphAlignment.Center

                Para = Sec.Footers.Primary.AddParagraph("Generiert am: " & DateTime.Now.ToString("dd.MM.yyyy HH:mm:ss"))
                Para.Format.Alignment = ParagraphAlignment.Right
                Para.Format.Font.Size = Unit.FromPoint(8)
            Catch ex As Exception
                _Logger.Error(_Rec.ShopGroupToProcess.GroupDescription & ".AddFrontPage - " & ex.Message)
                Throw New Exception
            End Try
        End Sub

        Private Sub RenderAndSendMail()
            Try
                Dim Rend As New MigraDoc.Rendering.PdfDocumentRenderer
                Rend.Document = _Doc
                Rend.RenderDocument()
                'No difference if true or false
                If _PDFInMemory Then
                    Using Stream As New MemoryStream
                        Rend.Save(Stream, False)
                        SendMail(Stream)
                    End Using
                Else
                    If Not Directory.Exists(_SaveFolder) Then
                        Directory.CreateDirectory(_SaveFolder)
                    End If
                    Rend.Save(_SavePath)
                    SendMail()
                End If
            Catch ex As Exception
                _Logger.Error(_Rec.ShopGroupToProcess.GroupDescription & ".RenderAndSendMail - " & ex.Message)
                Throw New Exception
            End Try
        End Sub

            Dim DirPath As String = Path.Combine(My.Application.Info.DirectoryPath, "OutFiles")
            Dim Generator As New TestGenerator

            For i As Integer = 1 To 50
                Generator = New TestGenerator With {
                         .SaveDirectoryPath = DirPath,
                         .DocName = "TestDoc" & i.ToString & ".pdf",
                         .Suffix = i.ToString
                }
                Await Generator.GenerateAsync
                Process.Start(Path.Combine(DirPath, Generator.DocName))
            Next