Springen naar inhoud


- - - - -
VS 2015

Tekst En Foto In 1 Pdf Samen

VS2015

  • Log in a.u.b. om te beantwoorden
Geen reacties in dit onderwerp

#1 pascalbianca

pascalbianca

    Webmaster/Admin

  • Webmaster
  • 4382 berichten
    Laatst bezocht 26 nov 2018 06:49
  • LocatieSusteren, Nederland, Midden Limburg.
Inzender

Geplaatst op 21 juni 2018 - 09:13

Mijn programma, lees een csv file uit en maakt daaruit een taart grafiek op basis van meldingen die meer als 8 keer voorkomen.
Nu krijg ik die taart grafiek netjes in de pdf, ook krijg ik tekst in een pdf.
Wat mij nu niet lukt is om tekst en die grafiek in 1 pdf te krijgen, met de tekst als eerste en dan de grafiek eronder.

De code waarmee ik stoei is op aanspreek basis van iTextSharp en pdfSharp.

Visual Basic Code:
Dim doc As New PdfDocument
Dim xg As XGraphics
Dim img As XImage
Dim pagecount As Integer = 0
Dim stream As New System.IO.MemoryStream()
Chart1.SaveImage(stream, Imaging.ImageFormat.Png)
Dim bmp As New Bitmap(stream)
Clipboard.SetDataObject(bmp)

doc.Pages.Add(New PdfPage)
xg = XGraphics.FromPdfPage(doc.Pages(pagecount))
img = Clipboard.GetImage()
xg.DrawImage(img, 50, 500)
pagecount = pagecount + 1
doc.Save("c:\HMI Project\HMI Reader\HMI Reader\bin\Debug\meldingen.pdf")
doc.Close()

Using fs As New System.IO.FileStream("c:\HMI Project\HMI Reader\HMI Reader\bin\Debug\meldingen.pdf", System.IO.FileMode.Append)
Using doc1 As New iTextSharp.text.Document
Dim pdfWriter As iTextSharp.text.pdf.PdfWriter = iTextSharp.text.pdf.PdfWriter.GetInstance(doc1, fs)
doc1.Open()
doc1.Add(New iTextSharp.text.Paragraph("Hello World"))
doc1.Close()
End Using
End Using

Zou iemand mij kunnen helpen om beide in 1 pdf te krijgen?

[update]
Ik heb nu deze code, die werkt , maar als iemand een beter idee heeft, gaarg reactie.

Visual Basic Code:
  ' Create a new PDF document
		Dim document As PdfDocument = New PdfDocument
		document.Info.Title = "Created with PDFsharp"

		Dim doc As New PdfDocument

		Dim img As XImage
		Dim pagecount As Integer = 0
		Dim stream As New System.IO.MemoryStream()
		Chart1.SaveImage(stream, Imaging.ImageFormat.Png)
		Dim bmp As New Bitmap(stream)
		Clipboard.SetDataObject(bmp)


		' Create an empty page
		Dim page As PdfPage = document.AddPage

		' Get an XGraphics object for drawing
		Dim gfx As XGraphics = XGraphics.FromPdfPage(page)


		' Draw crossing lines
		img = Clipboard.GetImage()
		gfx.DrawImage(img, 50, 500)


		' Create a font
		Dim font As XFont = New XFont("Verdana", 20, XFontStyle.Bold)

		' Draw the text
		gfx.DrawString("Hello, World!", font, XBrushes.Black, New XRect(0, 0, page.Width.Point, page.Height.Point), XStringFormat.Center)

		' Save the document...
		Dim filename As String = "c:\HMI Project\HMI Reader\HMI Reader\bin\Debug\HelloWorld.pdf"
		document.Save(filename)






Ook met taq VS 2015, VS2015 voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[VS 2015] Untitled 1

Met dank aan J├╝rgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)