[Tips] Reports.NET: Insertar imágenes.

Una de las cosas interesantes de Report.NET es que es muy fácil de utilizar, obviamente tiene todos los ingredientes que uno necesita para generar un reporte. Entre una de ellas, el insertar imágenes.  (Si no sabes que es Report.NET, te invito a leer mi artículo de Introducción)

Ahora bien, veamos los pasos para insertar una imagen. La imagen a insertar va a ser del gran Marcus Fenix, del Gear of War , dicho sea de paso, el sábado pasado termine el gow2, juegaso!,esperamos el 3.

Paso Cero:File->New Proyect –>Web->ASP.NET Web Application

Primer Paso: Agregar Referencia a Reports.dll (ve mi post anterior para más detalle)

Segundo Paso: Agregar la imagen(Add Existing File…)

image  

Tercer Paso: (Y no te olvides de esto) Configurar la imagen como recurso embebido.

image

 

 

 

 

Cuarto Paso: El código…

Dim report As New Report(New PdfFormatter())
Dim fd As New FontDef(report, “Helvetica”)
Dim fp As FontProp = New FontPropMM(fd, 15, Drawing.Color.Red)
Dim page As New Page(report)
page.AddCB_MM(80, New RepString(fp, “Marcus Fenix”))
Dim TheAssemblyrec1 As System.Reflection.Assembly = _
System.Reflection.Assembly.GetExecutingAssembly()
Dim TheStreamrec1 As System.IO.Stream
Dim imageNamerec1 As String = “marcus_fenix.jpg”        TheStreamrec1 = TheAssemblyrec1.GetManifestResourceStream _(“pdfimg.” & imageNamerec1)
page.AddMM(10, 50, New RepImageMM(TheStreamrec1, 30, 30))        RT.ViewPDF(report, “MiInforme.pdf”)

Con esto lo que hacemos es obtener la imagen que esta embebida. Luego con AddMM y RepImageMM podemos ver la posición y el tamaño de la imagen respectivamente.

Quinto Paso:F5 (Eso es todo amigos!)

image

Espero que te sirva!

Gonzalo

8 comentarios en “[Tips] Reports.NET: Insertar imágenes.”

  1. Me sale este error:
    El valor de ‘null’ no es válido para ‘stream’.

    en la siguiente línea:
    TheStreamrec1 = TheAssemblyrec1.GetManifestResourceStream _(“pdfimg.” & imageNamerec1)

    Alguna ayuda please?

  2. Dim report As New Report(New PdfFormatter())
    Dim fd As New FontDef(report, “Helvetica”)
    Dim fp As FontProp = New FontPropMM(fd, 15, Drawing.Color.Red)
    Dim page As New Page(report)
    page.AddCB_MM(80, New RepString(fp, cedula))
    Dim TheAssemblyrec1 As System.Reflection.Assembly = _
    System.Reflection.Assembly.GetExecutingAssembly()
    Dim imageNamerec1 As String = Server.MapPath(“SSA40003.jpg”)
    ‘TheStreamrec1 = TheAssemblyrec1.GetManifestResourceStream(“pdfimg.” & imageNamerec1)
    page.AddMM(10, 50, New RepImageMM(imageNamerec1, 30, 30))
    report.Save(Server.MapPath(“PDF”) & “/oscar.pdf”)

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *