miércoles, 6 de agosto de 2014

Copiar texto a .PDF

Creamos un TEXTBOX que contendrá la información que deseamos copiar a un archivo :PDF con la ayuda de la librería iTextShasp.
Puedes descargar la librería: http://sourceforge.net/projects/itextsharp/ 

Imports iTextSharp.text
Imports iTextSharp.text.pdf

Try
If Me.TextBox1.Text.Trim = "" Then
   MsgBox("Debes teclear algún datos")
   Me.TextBox1.Focus()
End If
'Adicionamos hora,minutos y segundos al nombre del archivo para evitar duplicidad
Dim hora As String = CStr(Hour(Now))
Dim minuto As String = CStr(Minute(Now))
Dim segundo As String = CStr(Second(Now))
Dim nombre_archivo As String ="c:\misdocumentos\archivo" +"-"+hora+minuto+segundo+".pdf"
'Creamos el archivo PDF
Dim midocpdf As New Document
PdfWriter.GetInstance(documentoPDF,New FileStream(nombre_archivo), FileMode.Create))

midocpdf.Open()
midocpdf.Add(New Paragraph(Me.TextBox1.Text.Trim,FontFactory.GetFont(FontFactory.TIMES, 11,iTextSharp.text.Font.NORMAL)))


'opcionales
'midocpdf.AddAuthor(Me.textAutor.Text.Trim)
'midocpdf.AddCreator(Me.textCreador.Text.Trim)
'midocpdf.AddKeywords(Me.texttPalabrasClave.Text.Trim)
'midocpdf.AddSubject(Me.textAsunto.Text.Trim)
'midocpdf.AddTitle(Me.textTitulo.Text.Trim)
'midocpdf.AddCreationDate()

midocpdf.Close()
Catch ex As Exception

    MsgBox(ex.Message)
End Try

Comparte