Hallo zusammen,
ich habe das Problem, dass ich Bilder nicht auf die Seite skaliert bekomme. Folgenden Code habe ich:
Ist es möglich die Seite automatisch auf Hoch- bzw. Querformat je nach Abmessungen des Bildes einzustellen?
Vielen Dank für Eure Hilfe
Goof
ich habe das Problem, dass ich Bilder nicht auf die Seite skaliert bekomme. Folgenden Code habe ich:
Quellcode
- Dim doc As New PdfDocument()
- Dim pdfPage As New PdfPage()
- pdfPage.Size = PdfSharp.PageSize.A4
- pdfPage.Orientation = PageOrientation.Landscape
- doc.Pages.Add(pdfPage)
- Dim xgr As XGraphics = XGraphics.FromPdfPage(doc.Pages(0))
- Dim img As XImage = XImage.FromFile(source)
- '###########
- 'Center the image in the page
- Dim leftOffset As Double = (xgr.PageSize.Width / 2.0) - (img.PointWidth / 2.0)
- Dim topOffset As Double = (xgr.PageSize.Height / 2.0) - (img.PointHeight / 2.0)
- 'Write the image to PDF
- xgr.DrawImage(img, leftOffset, topOffset)
- '############
- 'xgr.DrawImage(img, 0, 0)
- doc.Save(destinaton)
- doc.Close()
Ist es möglich die Seite automatisch auf Hoch- bzw. Querformat je nach Abmessungen des Bildes einzustellen?
Vielen Dank für Eure Hilfe
Goof
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Goof“ ()