Question

我有一个字体为Code 128的公式字段，用于打印用户输入的字符串。

每次打印都很好，除非两（2）个零彼此相邻。但是当它打印100时它就很好了，但是说我做了1000，它在条形码中打印出一些矩形形状。再次1001它打印正常，10001打印矩形。

这是公式字段：

@QuantityBarCode

' http://support.wisys.com/documentation/Crystal_Report_IDAutomation_Basic_Syntax_Barcode_Settings.htm

Dim DataToEncode As String
DataToEncode = Trim({@Quantity}) ' Quantity
Dim PrintableString As String
Dim DataToFormat As String
Dim WeightedTotal As Number
Dim CurrentValue As Number
Dim CheckDigitValue As Number
Dim C128CheckDigit As String
Dim StringLength As Number
Dim I As Number
Dim CurrentCharNum As Number
Dim CurrentEncoding As String
Dim C128Start As String
Dim CorrectFNC As Number
Dim CurrentChar As String
CorrectFNC = 0
PrintableString = ""
DataToFormat = DataToEncode
DataToEncode = ""

'Here we select character set A, B or C for the START character
StringLength = Len(DataToFormat)
CurrentCharNum = Asc(Mid(DataToFormat, 1, 1))
If CurrentCharNum < 32 Then C128Start = Chr(203)
If CurrentCharNum > 31 And CurrentCharNum < 127 Then C128Start = Chr(204)
If ((StringLength > 4) And IsNumeric(Mid(DataToFormat, 1, 4))) Then C128Start = Chr(205)

'202 & 212-215 is for the FNC1, with this Start C is mandatory
If CurrentCharNum = 202 Then C128Start = Chr(205)
If CurrentCharNum = 212 Then C128Start = Chr(205)
If CurrentCharNum = 213 Then C128Start = Chr(205)
If CurrentCharNum = 214 Then C128Start = Chr(205)
If CurrentCharNum = 215 Then C128Start = Chr(205)
If C128Start = Chr(203) Then CurrentEncoding = "A"
If C128Start = Chr(204) Then CurrentEncoding = "B"
If C128Start = Chr(205) Then CurrentEncoding = "C"

For I = 1 To StringLength
    'check for FNC1 in any set which is ASCII 202 and ASCII 212-215
    CurrentCharNum = Asc(Mid(DataToFormat, I, 1))
If ((CurrentCharNum = 202) Or (CurrentCharNum = 212) Or (CurrentCharNum = 213) Or (CurrentCharNum = 214) Or (CurrentCharNum = 215)) Then
        DataToEncode = DataToEncode & Chr(202)
    'check for switching to character set C
ElseIf ((I < StringLength - 2) And (IsNumeric(Mid(DataToFormat, I, 1))) And (IsNumeric(Mid(DataToFormat, I + 1, 1))) And (IsNumeric(Mid(DataToFormat, I, 4)))) Or ((I < StringLength) And (IsNumeric(Mid(DataToFormat, I, 1))) And (IsNumeric(Mid(DataToFormat, I + 1, 1))) And (CurrentEncoding = "C")) Then
    'switch to set C if not already in it
        If CurrentEncoding <> "C" Then DataToEncode = DataToEncode & Chr(199)
        CurrentEncoding = "C"
        CurrentChar = Mid(DataToFormat, I, 2)
        CurrentValue = Val(CurrentChar)
    'set the CurrentValue to the number of String CurrentChar
If (CurrentValue < 95 And CurrentValue > 0) Then DataToEncode = DataToEncode &                                                                                          Chr(CurrentValue + 32)
        If CurrentValue > 94 Then DataToEncode = DataToEncode & Chr(CurrentValue + 100)
        If CurrentValue = 0 Then DataToEncode = DataToEncode & Chr(194)
        I = I + 1
    'check for switching to character set A
ElseIf (I <= StringLength) And ((Asc(Mid(DataToFormat, I, 1)) < 31) Or  ((CurrentEncoding = "A") And (Asc(Mid(DataToFormat, I, 1)) > 32 And (Asc(Mid(DataToFormat, I, 1))) < 96))) Then
    'switch to set A if not already in it
        If CurrentEncoding <> "A" Then DataToEncode = DataToEncode & Chr(201)
        CurrentEncoding = "A"
    'Get the ASCII value of the next character
        CurrentCharNum = Asc(Mid(DataToFormat, I, 1))
        If CurrentCharNum = 32 Then
            DataToEncode = DataToEncode & Chr(194)
        ElseIf CurrentCharNum < 32 Then
            DataToEncode = DataToEncode & Chr(CurrentCharNum + 96)
        ElseIf CurrentCharNum > 32 Then
            DataToEncode = DataToEncode & Chr(CurrentCharNum)
        End If
    'check for switching to character set B
 ElseIf (I <= StringLength) And (((Asc(Mid(DataToFormat, I, 1))) > 31) And ((Asc(Mid(DataToFormat, I, 1)))) < 127) Then
    'switch to set B if not already in it
        If CurrentEncoding <> "B" Then DataToEncode = DataToEncode & Chr(200)
        CurrentEncoding = "B"
    'Get the ASCII value of the next character
        CurrentCharNum = Asc(Mid(DataToFormat, I, 1))
        If CurrentCharNum = 32 Then
            DataToEncode = DataToEncode & Chr(194)
        Else
            DataToEncode = DataToEncode & Chr(CurrentCharNum)
        End If
    End If
Next I

'<<<< Calculate Modulo 103 Check Digit >>>>
WeightedTotal = Asc(C128Start) - 100
StringLength = Len(DataToEncode)
For I = 1 To StringLength
    CurrentCharNum = Asc(Mid(DataToEncode, I, 1))
    If CurrentCharNum < 135 Then CurrentValue = CurrentCharNum - 32
    If CurrentCharNum > 134 Then CurrentValue = CurrentCharNum - 100
    If CurrentCharNum = 194 Then CurrentValue = 0
    CurrentValue = CurrentValue * I
    WeightedTotal = WeightedTotal + CurrentValue
    If CurrentCharNum = 32 Then CurrentCharNum = 194
    PrintableString = PrintableString & Chr(CurrentCharNum)
Next I
CheckDigitValue = (WeightedTotal Mod 103)
If CheckDigitValue < 95 And CheckDigitValue > 0 Then C128CheckDigit = Chr(CheckDigitValue + 32)
If CheckDigitValue > 94 Then C128CheckDigit = Chr(CheckDigitValue + 100)
If CheckDigitValue = 0 Then C128CheckDigit = Chr(194)
DataToEncode = ""

' Final Barcode format
Formula = C128Start & PrintableString & C128CheckDigit & Chr(206) & " "

图像显示1000作为文本（用户输入），条形码打印出矩形，我还在右下角添加了条形码文本，以显示条形码文本在编码时的样子。我注意到当我得到这种奇怪的形状时，星号似乎在文本中。

非常感谢任何帮助：）

enter image description here

Answer 1

我知道这可能为时已晚，但如果有人会遇到类似的问题我将来会回答这个问题。

此代码是为IDAutomationC128M.ttf字体提供的，该字体在ascii 194上有字符，字体Code128.ttf没有它...在ascii 194上。在ascii 207中可以使用Code128.ttf中的相同字符。

要使此代码与Code128.ttf配合使用，只需将 chr（194）更改为 chr（207），例如

有：

DataToEncode = DataToEncode & Chr(194)

应该是：

DataToEncode = DataToEncode & Chr(207)

Answer 2

我尝试了上面的代码和Mateusz解决方案，但这并不完全正确。

为了有效地纠正所提供的代码并在0彼此相邻时创建一些可读的条形码，您需要将 chr（194）更改为 chr（32）你在代码中看到的任何地方。

Answer 3

以下是免费Code128字体的BarCode128A的Crystal Report功能

  Function (StringVar input)
    NumberVar CheckDigit := 0;
    NumberVar i := 0;
    StringVar BarCodeOutput := "";
    StringVar BarCodeInput := input;
    StringVar BarCodeTemp := "";
    NumberVar SingleByte := 0;
    BarCodeInput := Uppercase(input);
    For i := 1 To Len(BarCodeInput) Step 1 Do
        (SingleByte := Asc(Mid(BarCodeInput, i,1));
            If SingleByte >=0 And SingleByte < 32 Then
                BarCodeTemp := BarCodeTemp + Chr(SingleByte +64)    
            Else if SingleByte > 31 And SingleByte < 127 Then
                BarCodeTemp := BarCodeTemp + Chr(SingleByte - 32)       
            Else
                BarCodeTemp := BarCodeTemp + ""
        );

    For i := 1 To Len(BarCodeTemp) Step 1 Do
        (SingleByte := Asc(Mid(BarCodeTemp, i,1));
            CheckDigit := (CheckDigit + (SingleByte * i)) Mod 103;
        );
    BarCodeTemp := BarCodeTemp + Chr(CheckDigit);

    For i := 1 To Len(BarCodeTemp) Step 1 Do
        (SingleByte := Asc(Mid(BarCodeTemp, i, 1));
            If SingleByte =0 Then
                BarCodeOutput := Chr(206)       
            Else if SingleByte > 0 And SingleByte < 94 Then
                BarCodeOutput := BarCodeOutput + Chr(SingleByte + 32)
            Else
                BarCodeOutput := BarCodeOutput + Chr(SingleByte + 103)
        );

    Chr(203) + BarCodeOutput + Chr(206)

Crystal Reports Code 128条形码打印形状而不是数字

3 个答案: