PDF erstellen
- VB.NET
Sie verwenden einen veralteten Browser (%browser%) mit Sicherheitsschwachstellen und können nicht alle Funktionen dieser Webseite nutzen.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von Vatter.
-
-
Guck ma auf Sourceforge. Da gibts ne .NET - Bibliothek zum erstellen von PDF - Dateien.
edit: Guckstu hier sourceforge.net/projects/pdfsharp/Jetzt schnell und einfach das Zehnfingersystem mit Scribble 3 erlernen. Mehr Informationen und Download gibts hier. Redundancy2 - leichtgewichtige freie Cloudsoftware. Folge mir auf GitHub -
-
Klasse Danke euch!
So also das erstellen der PDF ist nun kein Problem mehr
Jedoch habe ich Probleme mit der Anordnung der Kopf und Fußzeile!
Hier mal mein Bisheriger Code:
VB.NET-Quellcode
- Dim document As PdfDocument = New PdfDocument
- document.Info.Title = "Created with PDFsharp"
- Dim page As PdfPage = document.AddPage
- Dim gfx As XGraphics = XGraphics.FromPdfPage(page)
- Dim font As XFont = New XFont("Verdana", 14, XFontStyle.Bold)
- gfx.DrawImage(XImage.FromFile("C:\Users\Home\Desktop\Bilder\Unbenannt-1_03.gif"), 150, 0)
- gfx.DrawString("Hello, World! was geht??", font, XBrushes.Black, New XRect(100, 200, page.Width.Point, page.Height.Point), XStringFormats.TopLeft)
- gfx.DrawImage(XImage.FromFile("C:\Users\Home\Desktop\Bilder\Unbenannt-1_03.gif"), 150, 800)
- Dim filename As String = "HelloWorld.pdf"
- document.Save(filename)
- Process.Start(filename)
Allerdings bekomme ich das nicht richtig hin mit der Position der 2 Bilder Oben am Anfang einer PDF und an der Letzten Seite der PDF und mitten drinn der Text.
Hoffe da kann mir jemand weiterhelfen.
MFGGOOGLE ist mein Meister :) -
-
Wasn das jetzt für ein sinnloser Post?
Siehst du nicht das ich schon etwas habe aber das noch nicht richtig hin bekommen hab?
Für was soll ich andere Klassenbibliotheken nutzen oder mich dumm suchen wenn das e schon zu 80% funktioniert?
Wenn du mir weiterhelfen kannst und willst dann tue dass bitte ansonsten spare dir den ganzen Google Kram und schau in meine Signatur.
MFGGOOGLE ist mein Meister :) -
Bady schrieb:
Allerdings bekomme ich das nicht richtig hin mit der Position der 2 Bilder Oben am Anfang einer PDF und an der Letzten Seite der PDF und mitten drinn der Text.
Zeichne Bilder und Schrift einfach an die richtige Position.
Ne im Ernst: Mach ma nen Screenshot vom Ist und nen gemaltes Bild vom Soll. Sonst gibs hier nur Bahnhof und Kofferklauen.
Fiel Fergnügen
VatterSeit 26.Mai 2012 Oppa! -
Hm ok zur veranschaulichung mal hier die erstellte pdf im Anhang.(HelloWorld)
Die 2te pdf ist die soll pdf (infobrief)
und wenn du dir jetzt diesen Code dazu ansiehst:
VB.NET-Quellcode
- Sub Main2()
- Dim document As PdfDocument = New PdfDocument
- document.Info.Title = "Created with PDFsharp"
- Dim page As PdfPage = document.AddPage
- Dim gfx As XGraphics = XGraphics.FromPdfPage(page)
- Dim font As XFont = New XFont("Verdana", 14, XFontStyle.Bold)
- gfx.DrawImage(XImage.FromFile("C:\Users\Home\Desktop\Bilder\Unbenannt-1_03.gif"), 150, 0)
- gfx.DrawString("Hello, World! was geht??", font, XBrushes.Black, New XRect(100, 200, page.Width.Point, page.Height.Point), XStringFormats.TopLeft)
- Application.DoEvents()
- gfx.DrawString("Hello45, World! was geht??222", font, XBrushes.Black, New XRect(100, 220, page.Width.Point, page.Height.Point), XStringFormats.TopLeft)
- gfx.DrawImage(XImage.FromFile("C:\Users\Home\Desktop\Bilder\Unbenannt-1_03.gif"), 150, 800)
- Dim filename As String = "HelloWorld.pdf"
- document.Save(filename)
- Process.Start(filename)
- End Sub
Wirst du sehen das ich bei gfx.DrawString immer die Postionen angeben muss sowie auch bei den beiden bildern am oberen teil der pdf soauch im unteren teil!
Nun möchte ich das so haben das ich nur eine Textbox in meinem Programm habe wo ich meinen Text reinschreibe egal wie lange ( könnten auch 2 pdf seiten lang sein) und mir das bild oben und am ende der pdf automatisch rein macht. Also quasi wie eine Firmenvorlage wo oben ein header ist und untern ein Logo.
Hoffe ich konnte das jetzt etwas besser veranschaulichen.
MFGGOOGLE ist mein Meister :)Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Bady“ ()
-
Also ich kenne PDF_Sharp nur vom Hörensagen, aber wenn du Text2 und Bild2 auf die 2. Seite zeichnen möchtest, mußt du dann nicht erstma eine 2. Seite hinzufügen (Dim page2 As PdfPage = document.AddPage) und denn ein raphics-Object auf diese Page setzen?
Fiel Grütze
Vatter
Edit: Is ma so ausm bauch, wie gesagt ohne PDF_Sharp zu kennen...
VB.NET-Quellcode
- Sub Main2()
- Dim document As PdfDocument = New PdfDocument
- document.Info.Title = "Created with PDFsharp"
- Dim page(2) As PdfPage
- page(0) = document.AddPage
- page(1) = document.AddPage
- 'Seite 1
- Dim gfx As XGraphics = XGraphics.FromPdfPage(page(0))
- Dim font As XFont = New XFont("Verdana", 14, XFontStyle.Bold)
- gfx.DrawImage(XImage.FromFile("C:\Users\Home\Desktop\Bilder\Unbenannt-1_03.gif"), 150, 0)
- gfx.DrawString("Hello, World! was geht??", font, XBrushes.Black, New XRect(100, 200, page.Width.Point, page.Height.Point), XStringFormats.TopLeft)
- 'Seite 2
- gfx = XGraphics.FromPdfPage(page(1))
- gfx.DrawString("Hello45, World! was geht??222", font, XBrushes.Black, New XRect(100, 220, page.Width.Point, page.Height.Point), XStringFormats.TopLeft)
- gfx.DrawImage(XImage.FromFile("C:\Users\Home\Desktop\Bilder\Unbenannt-1_03.gif"), 150, 800)
- Dim filename As String = "HelloWorld.pdf"
- document.Save(filename)
- Process.Start(filename)
- End Sub
Seit 26.Mai 2012 Oppa!Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Vatter“ ()
-
-
Schau dir mal diese Seite von MSDN an und achte besonders auf MeasureString. des gibt dir die Abmessungen des Strings mit der entsprechenden Schriftart an.
// deinen Code schon mal selbst getestet? xDIs ma so ausm bauch, wie gesagt ohne PDF_Sharp zu kennen...Seit 26.Mai 2012 Oppa!