codesoft-80

如何解决CodeSoft出现中文乱码的问题

Label mx 是一款简单易用的条码标签设计软件系统。集画图设计、条形码生成、标签制作、流水号批量打印于一体。界面友好、即时上手、无需任何专业知识即可轻松完成对各种数据库连接。系统内置大量设计模板，用户稍作改动即可满足实际应用。

◆支持普通打印机（彩色喷墨或激光打印机）、标签打印机、数码印刷机以及工业打印机等。

◆支持40多种一维条码和二维条码：常用的一维条码类型有EAN-13、UPA-A、CODE 39、CODE 128、EAN-128、ITF-14、25码、电子监管码、药品监管码、邮政码等，常用的二维条码类型有Aztec\PDF417\Data Matrix\MaxiCode\QR Code（支持最新GS1标准和中国物品编码中心标准）等。

◆独有的条码驱动打印技术，打印等级可以达到A级，编码方式严格遵循国际标准，支持任何条码扫描设备识读。

◆支持多彩文字、一维码的多彩字符和二维码QR类型的彩码功能。

◆支持目前所有主流数据库：TXT、Excel、Access、DBF、EDB、SQL、Oracle、DB2、MySQL、SQLServer、Oracle 、Sqlite等数据库且具备多数据库同时连接功能。

codesoft 6 enterprise怎么制作80*20的条码页面大小怎么设置

CODESOFT以前的CODESOFT 6、CODESOFT 7等旧版本，会出现中文乱码的情况。

中文乱码会影响我们使用，今天，我们就告诉大家，如何解决CODESOFT中文乱码的问题。

按下步骤解决CODESOFT中文乱码：

一 、进入CODESOFT条码标签打印软件的安装目录，在\System\Users文件夹下，找到一个 USER.INI 的文件。

CODESOFT软件的安装目录。

二、 用记事本打开 USER.INI 文件，使用查找功能找到 [DIALOGS]；

三、 找到后将其下面的一行 Font=Tahoma，-11，0，0，0，400，0，0，0，128，0，0，0，0 删除，然后保存并退出；

删除USER.INI 文件内容。

四、 将USER.INI 文件的属性改为只读，点击“确定”就可以了。

修改USER.INI 文件权限。

再打开软件，就没有中文乱码了。

以上四个步骤，可以解决CODESOFT标签条码打印软件出现的中文乱码的问题。

注意：每次打开软件之前，都需要重复以上操作。

如果想永久的解决CODESOFT中文乱码的问题，建议大家使用CODESOFT最新版。

条码打印软件有哪几种？？？？？？？？？？？？？？？？？？

用条码打印软件制作标签之前要先确定好你的纸张尺寸和单个标签的尺寸，如果你的纸张是一行两列的话，就在布局管理页面输入正确的行列数，根据纸张实际情况设置纸张大小和标签间距等数值。

codesoft接口程序是什么

市面上的条码打印软件种类很多,大致分免费插件类和专业类,插件类应用最多的是CDR自带的程序,免费简单,条码类型少,没有二维码类型,不能批量打印可变数据;。

对于识别率要求较高或指定岀印刷条码必须达到A级,这样就推荐专业的条码软件了,国内用户常用的是《 Label mx通用条码标签设计系统》支持40多种一维码和二维码型,符合最新的GS1标准要求,可以批量打印水条码,也可以连接Excel表格等各种数据库批量打印。

恒佑条码

如何用codesoft制作txt文件

Public Const strLabFilePath = "C:\Label\LAB\"。

'CodeSoft变数

Public CsApp As LabelManager2.Application。

'Public CsDoc As LabelManager2.Document。

'Public CsVars As LabelManager2.Variables。

'Public CsApp As Object。

Public CsDoc As Object。

Public Const strLabelFilePath = "C:\Label\Lab\"。

Public lngCsAppHwnd As Long。

Public boolCsVisible As Boolean 'CodeSoft是否显示。

'Public Function OpenLabelFile(ByVal sLabelFile As String, Optional ByVal sPrinterType As String = "", Optional ByVal bLocalPrint As Boolean = True) As Boolean。

Public Function OpenLabelFile(ByVal sLabelFile As String, Optional ByVal bZebraPrinter As Boolean = True, Optional ByVal bLocalPrint As Boolean = True, Optional ByVal bShowCodesoft As Boolean = False) As Boolean。

' sLabelFile : Label文件档名。

' sPrinterType : 限用的Label Printer机型, Z4M/Z6M/空白(表示不限)。

' bLocalPrint : 限用本机的Label Printer, True or False。

Dim lngCsErrCode As Long。

Dim strDocPrinter As String。

Dim strDocPrintPort As String。

Dim intCsLoadCount As Integer。

Dim boolShowPrinterDialogs As Boolean。

OpenLabelFile = False。

intCsLoadCount = 0。

If boolCS6Installed = False Then。

MsgBox "必须安装CodeSoft软体才能执行Label列印!", vbCritical, "列印失败"。

Exit Function。

End If

If Dir("C:\Label", vbDirectory) = "" Then。

MkDir "C:\Label"。

End If

If Dir("C:\Label\Lab", vbDirectory) = "" Then。

MkDir "C:\Label\Lab"。

End If

'检查Label文件档是否存在。

If Dir(strLabelFilePath & sLabelFile) = "" Then。

MsgBox "找不到指定的LABEL文件档(" & strLabelFilePath & sLabelFile & "),请重进一次LABEL系统," & vbCrLf & "若重进系统后还是出现找不到LABEL文件档的讯息时,请联络MIS工程师处理!", vbCritical, "错误"。

Exit Function。

End If

If bShowCodesoft = True Then。

If CheckVersion = False Then Exit Function 'Check程式版本。

End If

Screen.MousePointer = 11。

'检查CodeSoft应用程式是否有被关闭 , 若有被关闭则开启它。

'On Error GoTo ErrorHandler0。

'If CsApp.Visible = False Then。

' Set CsApp = New LabelManager2.Application。

' CsApp.Visible = boolCsVisible。

' CsApp.Caption = "CS6_vb"。

'End If

On Error GoTo ErrorHandler1。

' ******************************************。

' Close and Reopen CsApp Each time Start ' Will take about 7 seconds to do this, disable first。

' ******************************************。

' CsApp.Documents.CloseAll False。

' CsApp.Quit。

' Set CsApp = Nothing。

' Set CsApp = New LabelManager2.Application。

' CsApp.Visible = True。

' CsApp.Caption = "CS6_vb"。

' DoEvents

' Sleep 100

' DoEvents

' ******************************************。

' Close and Reopen CsApp Each time End。

' ******************************************。

If (CsDoc Is Nothing) Or (CsApp.ActiveDocument Is Nothing) Then。

CsApp.Visible = False: DoEvents。

MDIForm1.ZOrder 0。

Set CsDoc = CsApp.Documents.Open(strLabelFilePath & sLabelFile)。

CsApp.Visible = boolCsVisible。

Else

If LCase(CsApp.ActiveDocument) <> LCase(sLabelFile) Then。

CsApp.Documents.CloseAll False。

CsApp.Visible = False: DoEvents。

MDIForm1.ZOrder 0。

Set CsDoc = CsApp.Documents.Open(strLabelFilePath & sLabelFile)。

CsApp.Visible = boolCsVisible。

End If

End If

CsDoc.WindowState = lppxMaximized。

CsDoc.ViewMode = lppxViewModeValue。

MDIForm1.ZOrder 0。

CsApp.Visible = False。

CsApp.Visible = boolCsVisible。

MDIForm1.ZOrder 0。

'检查Printer选用机型。

strDocPrinter = Left(CsDoc.Printer, InStr(CsDoc.Printer, ",") - 1)。

' Select Case sPrinterType。

' Case "Z4M"。

' If InStr(strDocPrinter, "Zebra Z4M") = 0 Or InStr(strDocPrinter, "203") = 0 Then。

' MsgBox "请选择Zebra Z4M 203dpi的Printer机型!", vbInformation, "讯息"。

' CsApp.Visible = False: DoEvents。

' MDIForm1.ZOrder 0。

' CsApp.Dialogs(lppxPrinterSelectDialog).Show。

' CsApp.Visible = boolCsVisible。

' strDocPrinter = Left(CsDoc.Printer, InStr(CsDoc.Printer, ",") - 1)。

' If InStr(strDocPrinter, "Zebra Z4M") = 0 Or InStr(strDocPrinter, "203") = 0 Then。

' MsgBox "选用的Label Printer机型与系统指定的不符(目前指定的Printer: " & strDocPrinter & ")!" & vbCrLf & "列印出来的结果可能会不正确!", vbExclamation, "警告"。

' End If。

' End If。

' Case "Z6M"。

' If (InStr(strDocPrinter, "Zebra Z6M") = 0 And InStr(strDocPrinter, "Zebra Z6000") = 0) Or InStr(strDocPrinter, "300") = 0 Then。

' MsgBox "请选择Zebra Z6M 300dpi的Printer机型!", vbInformation, "讯息"。

' CsApp.Visible = False: DoEvents。

' MDIForm1.ZOrder 0。

' CsApp.Dialogs(lppxPrinterSelectDialog).Show。

' CsApp.Visible = boolCsVisible。

' strDocPrinter = Left(CsDoc.Printer, InStr(CsDoc.Printer, ",") - 1)。

' If (InStr(strDocPrinter, "Zebra Z6M") = 0 And InStr(strDocPrinter, "Zebra Z6000") = 0) Or InStr(strDocPrinter, "300") = 0 Then。

' MsgBox "选用的Label Printer机型与系统指定的不符(目前指定的Printer: " & strDocPrinter & ")!" & vbCrLf & "列印出来的结果可能会不正确!", vbExclamation, "警告"。

' End If。

' End If。

' Case ""。

' '不检查。

' Case Else。

' MsgBox "选用的Label Printer机型与系统指定的不符(目前指定的Printer: " & strDocPrinter & ")!" & vbCrLf & "列印出来的结果可能会不正确!", vbExclamation, "警告"。

' End Select。

boolShowPrinterDialogs = True。

If bZebraPrinter = True Then。

If InStr(strDocPrinter, "Zebra Z4M") > 0 And InStr(strDocPrinter, "203") > 0 Then。

boolShowPrinterDialogs = False。

ElseIf (InStr(strDocPrinter, "Zebra Z6M") > 0 Or InStr(strDocPrinter, "Zebra Z6000") > 0) And InStr(strDocPrinter, "300") > 0 Then。

boolShowPrinterDialogs = False。

ElseIf InStr(strDocPrinter, "Zebra 105S/Se") > 0 And InStr(strDocPrinter, "203") > 0 Then。

boolShowPrinterDialogs = False。

Else

boolShowPrinterDialogs = True。

End If

' If boolShowPrinterDialogs = True Then。

' MsgBox "请依实际连结的Printer机型,选择 [Zebra Z4M 203dpi] 或 [Zebra Z6M 300dpi] 或 [Zebra 105S/Se 203dpi] 的Printer机型!", vbInformation, "讯息"。

' CsApp.Visible = False: DoEvents。

' MDIForm1.ZOrder 0。

' CsApp.Dialogs(lppxPrinterSelectDialog).Show。

' CsApp.Visible = boolCsVisible。

' strDocPrinter = Left(CsDoc.Printer, InStr(CsDoc.Printer, ",") - 1)。

' If Not ((InStr(strDocPrinter, "Zebra Z4M") > 0 And InStr(strDocPrinter, "203") > 0) Or ((InStr(strDocPrinter, "Zebra Z6M") > 0 Or InStr(strDocPrinter, "Zebra Z6000") > 0) And InStr(strDocPrinter, "300") > 0) Or (InStr(strDocPrinter, "Zebra 105S/Se") > 0 And InStr(strDocPrinter, "203") > 0)) Then。

' MsgBox "选用的Label Printer机型与系统指定的不符(目前指定的Printer: " & strDocPrinter & ")!" & vbCrLf & "列印出来的结果可能会不正确!", vbExclamation, "警告"。

' End If。

' End If。

End If

'检查Printer Port。

strDocPrintPort = Right(CsDoc.Printer, Len(CsDoc.Printer) - InStr(CsDoc.Printer, ","))。

strDocPrintPort = Trim(Replace(strDocPrintPort, "->", ""))。

If Right(strDocPrintPort, 1) = ":" Then。

strDocPrintPort = Left(strDocPrintPort, Len(strDocPrintPort) - 1)。

End If

' If bLocalPrint = True Then。

' If UCase(Left(strDocPrintPort, 3)) <> "COM" And UCase(Left(strDocPrintPort, 3)) <> "LPT" Then。

' MsgBox "Label Printer目前的连接埠不是本机的印表机(目前指定的连接埠: " & strDocPrintPort & ")!", vbExclamation, "警告"。

' End If。

' Else

' If UCase(Left(strDocPrintPort, 3)) <> "COM" And UCase(Left(strDocPrintPort, 3)) <> "LPT" Then。

' MsgBox "Label Printer目前的输出埠可能是网路印表机(目前指定的连接埠: " & strDocPrintPort & ")!", vbExclamation, "警告"。

' End If。

' End If

If bShowCodesoft = True Then。

If boolCsVisible = False Then。

MDIForm1.cmdCsVisible_Click。

Else

Call ShowWindow(lngCsAppHwnd, 1)。

SetWindowPos lngCsAppHwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS '将 APP 视窗设定成永远保持在最上层。

End If

End If

'Screen.MousePointer = 0。

OpenLabelFile = True。

Exit Function。

ErrorHandler0:

'Screen.MousePointer = 0。

OpenLabelFile = False。

MsgBox "开启CodeSoft应用程式失败!", vbCritical, "错误"。

Exit Function。

ErrorHandler1:

'若是Codesoft被关闭的情形,则开启Codesoft,并跳回原程式继续执行。

If Err.Number = 462 And intCsLoadCount < 3 Then。

intCsLoadCount = intCsLoadCount + 1。

Set CsApp = New LabelManager2.Application。

CsApp.Visible = True。

CsApp.Caption = "CS6_vb"。

DoEvents。

Sleep 100。

DoEvents。

lngCsAppHwnd = FindWindow(vbNullString, "CS6_vb")。

If lngCsAppHwnd > 0 Then。

SetWindowPos lngCsAppHwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS '将 APP 视窗设定成永远保持在最上层。

End If

CsApp.Visible = boolCsVisible。

Resume

End If

'Screen.MousePointer = 0。

OpenLabelFile = False。

lngCsErrCode = CsApp.GetLastError。

MsgBox "开启CodeSoft Label文件档失败!" & vbCrLf & IIf(lngCsErrCode <> 0, CsApp.ErrorMessage(lngCsErrCode), Err.Description), vbCritical, "错误"。

End Function

Public Function CheckCodesoftInstalled() As Boolean。

If Dir("C:\Program Files\Codesoft 7\Enterprise\Cs.exe", vbNormal) <> "" Or Dir("C:\Program Files\CS61\Cs.exe", vbNormal) <> "" Then。

'' If Dir("C:\Program Files\Codesoft 7\Sprint\CsSprint.exe", vbNormal) <> "" Then。

CheckCodesoftInstalled = True。

Else

CheckCodesoftInstalled = False。

End If

End Function

Public Function CsVar(ByVal strVarName As String, ByVal strVarData As String) As Boolean。

On Error GoTo ErrorHandler。

CsVar = False。

CsDoc.Variables(strVarName).Value = strVarData。

If CsDoc.Variables(strVarName).Value = strVarData Then。

CsVar = True。

Else

MsgBox "写入CodeSoft变数(" & strVarName & ")失败!" & vbCrLf & "设定值与传回值不同!", vbCritical, "错误"。

End If

Exit Function。

ErrorHandler:

MsgBox "写入CodeSoft变数(" & strVarName & ")失败!" & vbCrLf & vbCrLf & Err.Description, vbCritical, "错误"。

End Function

原文地址：http://www.qianchusai.com/codesoft-80.html