PDFsharp & MigraDoc Foundation
https://forum.pdfsharp.net/

Bug with Adding text to split pages
https://forum.pdfsharp.net/viewtopic.php?f=3&t=199		 Page 1 of 1
Author:  mdreyer [ Tue Jul 24, 2007 3:09 pm ]
Post subject:  Bug with Adding text to split pages
Hello,

I have a multi-page PDF document that I need to split, add some text and then save the pdf page to a BLOB SQL Server field. I created a simple Proof of concept to test if this tool will work for me.

I open the source document in import mode, split into an individual page in a new document, close the new document, reopen the new document in Modify mode, draw some text, save the new document and close it.

I get no errors, however no text is added to the new document page.

What am I doing wrong?

Here is the source code:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim inputdoc As PdfDocument = PdfReader.Open(txtPDFFile.Text, PdfDocumentOpenMode.Import)

For index As Integer = 0 To inputdoc.PageCount - 1
Dim page As PdfPage = inputdoc.Pages(index)
''inputdoc.Save(txtPDFFile.Text)

Dim filename As String = inputdoc.FullPath.Substring(0, inputdoc.FullPath.LastIndexOf(".pdf")) + _
"(Page " + String.Format("{0:000}", index + 1) + ").pdf"
Dim outputdoc As New PdfDocument(filename)
outputdoc.Pages.Add(page)
outputdoc.Close()

' reopen the new doc to modify and add the unique number
Dim newdoc As PdfDocument = PdfReader.Open(filename, PdfDocumentOpenMode.Modify)
For i As Integer = 0 To newdoc.PageCount - 1
Dim NewPage As PdfPage = newdoc.Pages(i)

Dim gfx As PdfSharp.Drawing.XGraphics = PdfSharp.Drawing.XGraphics.FromPdfPage(NewPage)
Dim font As New PdfSharp.Drawing.XFont("Verdana", 10, XFontStyle.Regular)
gfx.DrawString(TextBox1.Text.ToString(), font, XBrushes.Black, 20, 20, XStringFormat.Default)
newdoc.Save(filename)

newdoc.Close()
Next
Next

inputdoc.Close()
MessageBox.Show("Done...")
Me.Close()
End Sub
Author:  mdreyer [ Tue Jul 24, 2007 4:08 pm ]
Post subject:  This does not work either...
Does not give me an error...just does not write anything to the pdf file

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim inputdoc As PdfDocument = PdfReader.Open(txtPDFFile.Text, PdfDocumentOpenMode.Import)

For index As Integer = 0 To inputdoc.PageCount - 1

Dim page As PdfPage = inputdoc.Pages(index)

Dim filename As String = inputdoc.FullPath.Substring(0, inputdoc.FullPath.LastIndexOf(".pdf")) + _
"(Page " + String.Format("{0:000}", index + 1) + ").pdf"

Dim outputdoc As New PdfDocument()
Dim pagetmp As PdfPage = outputdoc.Pages.Add(page)
Dim gfx As PdfSharp.Drawing.XGraphics = _
PdfSharp.Drawing.XGraphics.FromPdfPage(pagetmp, XGraphicsPdfPageOptions.Append)
Dim font As New PdfSharp.Drawing.XFont("Verdana", 18, XFontStyle.Regular)

gfx.DrawString(TextBox1.Text.ToString(), font, XBrushes.Black, 30, 50, XStringFormat.Default)
outputdoc.Save(filename)
outputdoc.Close()

' reopen the new doc to modify and add the unique number
'Dim newdoc As PdfDocument = PdfReader.Open(filename, PdfDocumentOpenMode.Modify)
'For i As Integer = 0 To newdoc.PageCount - 1
' Dim NewPage As PdfPage = newdoc.Pages(i)

' Dim gfx As PdfSharp.Drawing.XGraphics = PdfSharp.Drawing.XGraphics.FromPdfPage(NewPage)
' Dim font As New PdfSharp.Drawing.XFont("Verdana", 10, XFontStyle.Regular)
' gfx.DrawString(TextBox1.Text.ToString(), font, XBrushes.Black, 20, 20, XStringFormat.Default)
' newdoc.Save(filename)

' newdoc.Close()
'Next
Next

inputdoc.Close()
MessageBox.Show("Done...")
Me.Close()
End Sub
Page 1 of 1 All times are UTC
Powered by phpBB® Forum Software © phpBB Group
https://www.phpbb.com/