'**************************************************************
' SSRS Font Encoder for IDAutomation Barcode Fonts 
'  Copyright, 2020 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_DotCodeDEMO(Fields!Product_ID.Value)
' Font to use: IDAutomation2D
' Tutorial: www.idautomation.com/font-encoders/ssrs/
'**************************************************************
















Public Function IDAutomation_SSRS_FontEncoder_DotCodeDEMO(DataToEncode As String) As String

  Try

    Dim I As Integer
    Dim PrintableString As String 
    PrintableString =                              "pppopppppopopppopppppopopopppppopopopopppp" 
    PrintableString = PrintableString & ChrW(10) & "ppplnkflflpopkhpfohonknkhlflppnkhpplfkhppp" 
    PrintableString = PrintableString & ChrW(10) & "pppohlnkplflnohkponlhpfonlhlfknlhlpkfohppp" 
    PrintableString = PrintableString & ChrW(10) & "ppppnohlhofkfoflpphohknlflnknohofphkfpnppp" 
    PrintableString = PrintableString & ChrW(10) & "ppplhknkflnonoflppfonlhonkhkplfpplhkflpppp" 
    PrintableString = PrintableString & ChrW(10) & "ppplhlhlppplhphlhpplppplhlplhphlplpphlhppp"

    IDAutomation_SSRS_FontEncoder_DotCodeDEMO = PrintableString
          
  Catch ex As Exception
      IDAutomation_SSRS_FontEncoder_DotCodeDEMO = "ERROR" & " - " & ex.Message
  End Try
  
End Function
