PDFSharp - kapseln von Funktionen für die Seitenerstellung

  • VB.NET

    PDFSharp - kapseln von Funktionen für die Seitenerstellung

    Moin!

    ich habe noch eine Frage zum Thema PdfSharp.

    Es geht darum, dass ich mehrere einzelne Seiten erstellen möchte, die im Grunde immer fast immer gleich aufgebaut sind. Deshalb möchte ich Teile in Funktionen ablegen und das Ganze in eine Klasse legen.

    So sieht es derzeit aus:

    VB.NET-Quellcode

    1. Imports PdfSharp
    2. Imports PdfSharp.Drawing
    3. Imports PdfSharp.Pdf
    5. Public Class CreateGstDeck
    6. Private _PdfT As New EBL.PDF.PdfTools
    8. Public Sub Run()
    9. ' Create a new PDF document
    10. With _PdfT
    11. .Init() ' Dokument anlegen
    12. .CreateEmptyPage() 'Seite anlegen
    13. .CreateEblLogo() 'erstellen des Seitenlogos
    14. .SaveAndOpen("c:\temp\test.pdf")
    15. End With
    17. End Sub
    18. End Class


    Die aufgerufene Klasse sieht nun wie folgt aus:

    VB.NET-Quellcode

    1. Imports PdfSharp
    2. Imports PdfSharp.Drawing
    3. Imports PdfSharp.Pdf
    5. Public Class PdfTools
    7. Private _PdfPage As New PdfPage
    8. Private _PdfDocument As PdfDocument = New PdfDocument
    10. ''' <summary>
    11. ''' Mass in Millimeter
    12. ''' </summary>
    13. ''' <param name="Value"></param>
    14. ''' <returns>Mass in DPI</returns>
    15. <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
    16. Public Function Milli2Dpi(Value As Integer) As Integer
    17. If Value < 0 Then Return 0
    18. Return Value * k_DPI / k_milimetresPerInch
    19. End Function
    21. Public Sub Init(Optional Title As String = "EBL Deckblatt")
    22. _PdfDocument.Info.Title = Title
    23. End Sub
    25. Public Sub CreateEmptyPage(Optional Size As PageSize = PageSize.A4, Optional Orientation As PageOrientation = PageOrientation.Portrait)
    26. ' Create an empty page
    27. Dim _PdfPage As PdfPage = _PdfDocument.AddPage
    29. ' Formatierung des Dokumentes
    30. _PdfPage.Size = Size
    31. _PdfPage.Orientation = Orientation
    32. End Sub
    33. ''' <summary>
    34. ''' erstellen einer Datei und öffnen
    35. ''' </summary>
    36. ''' <param name="Filename">Pfad für die zu erstellenden Datei</param>
    37. ''' <param name="AutoStart">optional automatisches Öffnen der DLL im Anschluss (default: true)</param>
    38. Public Sub SaveAndOpen(Filename As String, Optional AutoStart As Boolean = True)
    39. ' Save the document...
    40. _PdfDocument.Save(Filename)
    41. ' ...and start a viewer.
    42. If AutoStart = True Then
    43. Process.Start(Filename)
    44. End If
    45. End Sub
    46. ''' <summary>
    47. ''' Ausgabe des Logos mit der Abteilungsbezeichnung
    48. ''' </summary>
    49. ''' <param name="Abteilung">optionaler Abteilungsname (default 70-3.11 Kataster)</param>
    50. ''' <remarks></remarks>
    51. Public Sub CreateEblLogo(Optional Abteilung As String = k_Kataster, Optional AbstandAsMMObenLogo As Integer = 40, Optional AbstandAsMMObenAbteilung As Integer = 58)
    52. ' Get an XGraphics object for drawing
    53. Dim gfx As XGraphics = XGraphics.FromPdfPage(_PdfPage)
    55. Dim Image As PdfSharp.Drawing.XImage = PdfSharp.Drawing.XImage.FromFile("\\local.ebhl.de\ebl-daten\Abteilung\EBL_SRL\ALLG\MapEdit\Logo_Luebeck_Entsorgungsbetriebe.jpg")
    56. Dim x As Double = (_PdfPage.Width.Point - Image.PixelWidth * k_DPI / Image.HorizontalResolution) / 2
    57. gfx.DrawImage(Image, x, Milli2Dpi(AbstandAsMMObenLogo))
    59. End Sub
    61. End Class


    Wenn ich den Code ausführe bekomme ich folgende Meldung:


    You cannot draw on a page that is not owned by a PdfDocument object System.ArgumentException

    pageParametername
    bei PdfSharp.Drawing.XGraphics..ctor(PdfPage page, XGraphicsPdfPageOptions options, XGraphicsUnit pageUnit, XPageDirection pageDirection)
    bei PdfSharp.Drawing.XGraphics.FromPdfPage(PdfPage page)
    Zeile 53 bei EBL.PDF.PdfTools.CreateEblLogo(String Abteilung, Int32 AbstandAsMMObenLogo, Int32 AbstandAsMMObenAbteilung) in C:\VSProjects\2019\EBL.PDF\EBL.PDF\EBL.PDF.Tools.vb



    Kann mir einer weiterhelfen?

    Gruß Jan

Facebook
Telefonspende