Imprimir Códigos de barras en SSRS 2017

Ya que SSRS 2017 no convierte fuentes incluidas para codigos de barras, se debe incluir el código VBscript necesario para poder generarlos durante el renderizado del reporte, para este propósito hacemos uso de la libreria BarcodeLib.dll, el proceso de implementación es como se describe a continuacion:

1. Descargar el archivo zip: BarcodeLib.zip, que contiene las librerias

• BarcodeLib.dll
• System.Drawing.dll

2. Descomprimirlo en la ruta de instalación del servicio de reportes 2017, habitualmente:

 C:\Program Files\Microsoft SQL Server Reporting Services\SSRS\ReportServer\bin

3. Agregar la referencia a  las dos librerias en el reporte.

4. Agregar esta función en la sección código del reporte: 

Public Function GenerarCodigoDeBarras(Text As String, Width as Integer, Heigth as Integer) As Byte()
    Dim b As System.Drawing.Bitmap
    Dim bar As New BarcodeLib.Barcode
    bar.Alignment = BarcodeLib.AlignmentPositions.LEFT
    bar.IncludeLabel = False
    bar.RotateFlipType = Drawing.RotateFlipType.RotateNoneFlipNone
    b = bar.Encode(BarcodeLib.TYPE.CODE39Extended, Text, Width, Heigth )
    Dim bitmapData As Byte() = Nothing
    Using ms As New System.IO.MemoryStream()
        b.Save(ms, System.Drawing.Imaging.ImageFormat.Bmp)
        bitmapData = ms.ToArray()
    End Using
    Return bitmapData
End Function

Como se muestra en la imagen

5. Agregar una imagen al reporte como se muestra en la imágen:

6. Esta sería la expresion que debes agregar para que se genere el codigo de barras 

=Code.GenerarCodigoDeBarras("*1234567*",300,60)

 

 

Este artículo está basado en: 

https://www.codeproject.com/Articles/789254/How-to-embed-Barcodes-in-your-SSRS-report