'**************************************************************
' SSRS Font Encoder for IDAutomation Barcode Fonts V.2019
' © Copyright, 2019 IDAutomation.com, Inc. All rights reserved.
'
' DEMO VERSION NOTICE:
' The demo version of this product contains a static barcode that may be
' used for evaluation purposes only. The static barcode cannot be
' changed because this would reveal the complete formula, which is only
' available in the purchased version. The purchased version is provided 
' with a money back satisfaction guarantee. If it is necessary to 
' test dynamic barcodes with this product, the purchased version is required.
'
' This function returns a static text string as an Expression.
' The string will generate the barcode when combined with the
' correct barcode font. Expression Example:
' =code.IDAutomation_SSRS_FontEncoder_QRCodeDEMO(Fields!Product_ID.Value)
' Font to use: IDAutomation2D
' Tutorial: www.idautomation.com/font-encoders/ssrs/
'**************************************************************
















Public Function IDAutomation_SSRS_FontEncoder_QRCodeDEMO(DataToEncode As String) As String

  Try

    Dim I As Integer
    Dim PrintableString As String 
    PrintableString =                              "AHEEEHAPEOPLFNIFGDEHGPAHEEEHA"
    PrintableString = PrintableString & ChrW(10) & "BNFFFNBPBPIOBPBHJPBOJPBNFFFNB"
    PrintableString = PrintableString & ChrW(10) & "NIEECFFEJNHKCPEMDNBMACMBGAGMD"
    PrintableString = PrintableString & ChrW(10) & "DAEBLIFGKDIOIPKEJLINBLMMOLKEK"
    PrintableString = PrintableString & ChrW(10) & "EFMLEJFECCFPJEFFPAFGPEOEHEEHC"
    PrintableString = PrintableString & ChrW(10) & "MNNFFFEHMBKCHCHMPAOOAHFHAPIEJ"
    PrintableString = PrintableString & ChrW(10) & "APBBBPAPBHBGMHHDOHNLEHDCAOEKF"
    PrintableString = PrintableString & ChrW(10) & "HHHHHHHPPPPHPPPHPPPHPPPHHHPPP"
    IDAutomation_SSRS_FontEncoder_QRCodeDEMO = PrintableString
          
  Catch ex As Exception
      IDAutomation_SSRS_FontEncoder_QRCodeDEMO = "ERROR" & " - " & ex.Message
  End Try
  
End Function
