Moin!
ich soll PDF-Dateien erstellen und hab mir PDFSharp dafür installiert.
Ein Bild habe ich wie folgt eingebunden.
Um einen Abstand in Millimeter angeben zu können habe ich mir folgendes Funktion erstellt:
Das Pdf wird korrekt erstellt.
Nun wollte ich als Test einen weiteren Text einfügen mit einem Abstand von 40mm vom oberen Rand.
Dazu gibt es diese Zeile zusätzlich:
Wenn ich den Abstand der beiden Bilder aber messe sind das ca. 2.5cm.
Kann mir einer weiterhelfen, wo ich meinen Gedankenfehler habe?
Gruß Jan
ich soll PDF-Dateien erstellen und hab mir PDFSharp dafür installiert.
Ein Bild habe ich wie folgt eingebunden.
VB.NET-Quellcode
- Public Overrides Sub Execute(ByVal parameter As Object)
- ' Create a new PDF document
- Dim document As PdfDocument = New PdfDocument
- document.Info.Title = "Created with PDFsharp"
- ' Create an empty page
- Dim page As PdfPage = document.AddPage
- ' Formatierung des Dokumentes
- page.Size = PageSize.A4
- page.Orientation = PageOrientation.Portrait
- ' Get an XGraphics object for drawing
- Dim gfx As XGraphics = XGraphics.FromPdfPage(page)
- Dim Image As PdfSharp.Drawing.XImage = PdfSharp.Drawing.XImage.FromFile("\\local.ebhl.de\ebl-daten\Abteilung\EBL_SRL\ALLG\MapEdit\Logo_Luebeck_Entsorgungsbetriebe.jpg")
- Dim x As Double = (page.Width.Point - Image.PixelWidth * k_DPI / Image.HorizontalResolution) / 2
- gfx.DrawImage(Image, x, Milli2Dpi(50))
- ' Save the document...
- Dim filename As String = "c:\temp\Demo1.pdf"
- document.Save(filename)
- ' ...and start a viewer.
- Process.Start(filename)
- End Sub
Um einen Abstand in Millimeter angeben zu können habe ich mir folgendes Funktion erstellt:
Das Pdf wird korrekt erstellt.
Nun wollte ich als Test einen weiteren Text einfügen mit einem Abstand von 40mm vom oberen Rand.
Dazu gibt es diese Zeile zusätzlich:
Wenn ich den Abstand der beiden Bilder aber messe sind das ca. 2.5cm.
Kann mir einer weiterhelfen, wo ich meinen Gedankenfehler habe?
Gruß Jan
