PDFsharp & MigraDoc Foundation

            Dim Zelle As Cell = tbl.Rows(0).Cells(0)
            Zelle.Shading.Color = Colors.Aquamarine
            Dim Frame As TextFrame = Zelle.AddTextFrame()
            Frame.Width = Zelle.Width
            Frame.Height = Zelle.Height
            Frame.FillFormat.Color = Farbe2

            Frame.Orientation = TextOrientation.Upward
            Dim para As Paragraph = Frame.AddParagraph("remarks")

    /// <summary>
    /// Gets or sets the width of the cell (merged cells included).
    /// </summary>
    public double Width
    {
        get
        {
            if (this.mergeRight != 0)
            {
                // for each merged Column add the Column.Width
                this.width = 0;
                for (int index = 0; index <= this.mergeRight; ++index)
                {
                 double tmpWidth = this.table.Columns[index].width;
                 this.width +=  tmpWidth;
                }
            }
            else
            {
            this.width = this.Column.width.Value;
            };

            return this.width;
        }
        set
        {
            this.Column.width.Value = value;
        }
    }
    [DV]
    internal Double width = 0;

    /// <summary>
    /// Gets or sets the height of the cell (merged cells included).
    /// </summary>
    public double Height
    {
        get
        {
            if (this.mergeDown != 0)
            {
                // for each merged Column add the Column.Width
                this.height = 0;
                for (int index = 0; index <= this.mergeDown; ++index)
                {
                    double tmpHeight = this.table.Rows[index].height    ;
                    this.height+= tmpHeight;
                }
            }
            else
            {
                this.height = this.row.height.Value;
            };
            return this.height;
        }
        set
        {
            this.Row.height.Value = value;
        }
    }
    [DV]
    internal Double height = 0;

[assembly: InternalsVisibleTo("TestPDFs,PublicKey=0024000004800000940000000602000000240000525341310004000001000100cd725a769b81d7" +
"77182e479e45d77fb96ab0aa2a78a179e2154113ac0f181d70bd6b80f4d6df7fa5860b25ae49d3" +
"5240ca24e2f65bcfbb9d5fde4d19c182e27eae5f4ca0312a4487236d9c88dec8e54f44a45e6c25" +
"36c24a2e1b93c72ce01fadaf6d37f8758a0de9cb6fca3b718fda7e50b9b7b3b454f62671d7ea5a" +
"50781ab4")]

        Dim docRenderer As MigraDoc.Rendering.DocumentRenderer
        docRenderer = New MigraDoc.Rendering.DocumentRenderer(Dok.Dokument)
        docRenderer.PrepareDocument()
        Dim pageCount As Integer = docRenderer.FormattedDocument.PageCount

        For j As Integer = 1 To pageCount
            Dim docObjects As MigraDoc.Rendering.RenderInfo() = docRenderer.GetRenderInfoFromPage(j) '.GetDocumentObjectsFromPage(i + 1)
            '            If Not docObjects Then 'And docObjects.Length > 0) Then
            If docObjects.Length > 0 Then
                For k As Integer = 0 To docObjects.Length - 1
                    Debug.Print(docObjects(k).GetType.Name)
                    Select Case docObjects(k).GetType.Name
                        Case "TableRenderInfo"
                            Dim tblSize As MigraDoc.Rendering.RenderInfo = docObjects(k)
                            Dim rect As PdfSharp.Drawing.XRect = Dok.GetXRectFromArea(tblSize.LayoutInfo.ContentArea)
                            'Q: How to use PDFSharp to draw on this page? How to get the PDFSharp.page?
                            'How to add text via PDFSharp at this point?

                    End Select
                Next k
            End If
        Next j

        'Render the PDF-Document ...
        Dim Render As MigraDoc.Rendering.PdfDocumentRenderer = New MigraDoc.Rendering.PdfDocumentRenderer(True, PdfSharp.Pdf.PdfFontEmbedding.Always)
        Render.Document = Dok.Dokument
        Render.RenderDocument()

        ' ... and save it to a file ...
        Dim filename As String = "HelloWorld.pdf"
        Render.PdfDocument.Save(filename)
        ' ...and start a viewer.
        Process.Start(filename)