Descarga contenido exclusivo en
Ofimática y Programación + Tecnología

domingo, 10 de junio de 2012



iTextSharp y VB .Net: Enlace a web


The iText library is free software; you can redistribute it and/or modify it under the terms of the GNU Affero General Public License versi... thumbnail 1 summary
The iText library is free software; you can redistribute it and/or modify it under the terms of the GNU Affero General Public License version 3. Please read the terms of use before downloading iText.

Descarga iTextSharp: http://itextpdf.com/download.php


Este código nos muestra lo fácil que es colocar en nuestro archivo pdf un enlace a alguna página en la red. En un proyecto nuevo con Microsoft Visual Basic 2010 Express agregar un Form y un Button, entonces copiar y pegar el siguiente código.

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim ruta As String = "itextsharp - enlace a web.pdf" 'ruta del pdf (se creara en la carpeta Debug del proyecto
        Dim documento As New iTextSharp.text.Document(PageSize.LETTER, 72, 72, 72, 72)
        Dim pdfw As iTextSharp.text.pdf.PdfWriter

        pdfw = PdfWriter.GetInstance(documento, New FileStream(ruta, FileMode.Create, FileAccess.Write, FileShare.None))

        'Apertura del documento.
        documento.Open()

        'Agregamos una pagina.
        documento.NewPage()


        Dim enlace As New Anchor("Ofimática y Programación") 'texto que se mostrara
        enlace.Reference = "http://ofimatica-programacion.blogspot.com/" 'enlace url
        documento.Add(enlace)


        'Forzamos vaciamiento del buffer.
        pdfw.Flush()
        'Cerramos el documento.
        documento.Close()

        pdfw = Nothing
        documento = Nothing

    End Sub
End Class


Imports iTextSharp.text.pdf Imports iTextSharp.text Imports System.IO

Descarga del archivo aquí: itextsharp - enlace a web




No hay comentarios

Publicar un comentario en la entrada