我们最近升级了一些PC,随后在用于对MySQL数据库执行操作的访问前端中遇到了一些VBA代码问题。特定的代码段从数据库中提取序列号,然后将其作为条形码打印到 Dymo Labelwriter 450。
Style = vbExclamation + vbYesNo
Title = "Print Label For " & Me.txt_Barcode & " ?"
Response = MsgBox("Do you want to print a label for serial number " & Me.txt_Barcode, Style, Title)
If Response = vbYes Then
Dim myDymo As Object
Dim myLabel As Object
'On Error Resume Next
Set myDymo = CreateObject("Dymo.DymoAddIn") '
Set myLabel = CreateObject("Dymo.DymoLabels")
If (myDymo Is Nothing) Or (myLabel Is Nothing) Then
MsgBox "Unable to create OLE objects"
Exit Sub
End If
代码现在在第 8 行中断,即
Set myDymo = CreateObject("Dymo.DymoAddIn") '
我收到的错误代码与 ActiveX 有关(这似乎可能与从 32 位到 64 位有关(,但自从从 Dymo 安装 DLS (DLS8Setup.8.2.2.996( 以来,它似乎已经演变为以下内容:
运行时错误 '-2147467261 (80004003(
自动化错误 无效指针
我希望有人能指出一个简单的解决方法,这样我就不必完全重写代码了!
提前感谢!
我设法通过几个步骤解决了这个问题,老实说,我不确定哪个确切地解决了问题的这一特定部分:
首先是运行DYMO_Label_v.8_SDK_Installer
我也从最新的 Dymo Connect 切换到 DYMO Label v.8
然后,我必须确保我们使用的条形码字体是作为所有用户的管理员安装的,而不仅仅是特定的用户配置文件
最后,我认为这可能是踢球者,该软件正在寻找一个名为"Serial.label"的标签模板,我在我们的服务器上找到了该模板,并将其复制并粘贴到软件正在寻找它的 C: 驱动器中。
我很高兴我不必重写代码!