条码打印问题,恳请专家高手解答,急用!!!!!!!!

liaoyoujun2009 2012-04-28 08:35:15

在数据窗口中将数据列选择成code128字体,条码打印出来后无法识别,不知道怎样解决,现在急需用!!!!跪求高手解答

...全文

229 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

l_8_l 2012-05-30

打赏
举报

barcodex.ocx控件生成条码图片，不知道是否适合你那边的情况

wguan 2012-05-30

打赏
举报

128码是要经过转换的，不能直接用原来的字符

huangjie1218 2012-05-30

打赏
举报

Integer li_Count, li_Length, li_EndAsc, li_WeightTotal, li_Temp
String ls_EndChar, ls_Start, ls_StartA, ls_StartB, ls_StartC, ls_Stop, ls_Temp

If IsNull( as_Barcode ) OR as_Barcode = '' Then
Return ''
End IF

ls_StartA = char( 203 )
ls_StartB = char( 204 )
ls_StartC = char( 205 )
ls_Stop = char( 206 )

IF IsNumber( as_Barcode ) Then
IF Mod( Len( as_Barcode ), 2 ) = 0 Then
ls_Start = ls_StartC
Else
ls_Start = ls_StartB
End IF
Else
ls_Start = ls_StartB
End IF

Choose Case ls_Start
Case ls_StartB //code128B編碼方式

li_Length = Len( as_Barcode )

li_WeightTotal = Asc( ls_StartB ) - 100

For li_Count = 1 To li_Length
li_Temp = Asc( Mid( as_Barcode, li_Count, 1 ) )
IF li_Temp >= 32 Then
li_WeightTotal += ( li_Temp - 32 ) * li_Count
Else
li_WeightTotal += ( li_Temp + 64 ) * li_Count
End IF
Next

li_EndAsc = Mod( li_WeightTotal, 103 )

IF li_EndAsc >= 95 Then
li_EndAsc += 100
Else
li_EndAsc += 32
End IF

ls_EndChar = Char( li_EndAsc )

ls_Temp = as_Barcode

Case ls_StartC

li_Length = Integer( Len( as_Barcode ) / 2 )

li_WeightTotal = Asc( ls_StartC ) - 100

For li_Count = 1 To li_Length
li_Temp = Integer( Mid( as_Barcode, li_Count * 2 - 1, 2 ) )
li_WeightTotal += li_Temp * li_Count
Next

li_EndAsc = Mod( li_WeightTotal, 103 )

If li_EndAsc >= 95 Then
li_EndAsc += 100
Else
li_EndAsc += 32
End If

ls_EndChar = Char( li_EndAsc )

For li_Count = 1 To li_Length
li_Temp = Integer( Mid( as_Barcode, li_Count * 2 - 1, 2 ) )
IF li_Temp >= 95 Then
ls_Temp = ls_Temp + Char( li_Temp + 100 )
Else
ls_Temp = ls_Temp + Char( li_Temp + 32 )
End IF
Next

End Choose

as_Barcode = ls_Start + ls_Temp + ls_EndChar + ls_Stop

Return as_Barcode

xufxuf 2012-05-27