0

我在网上找到了一些代码，上面说您可以在 Dymo 打印机上打印标签。我启用了参考 DYMO Label Software v.8 参考。代码如下：

Dim myDymo As DYMO_DLS_SDK.DymoHighLevelSDK
Dim dyAddin As DYMO_DLS_SDK.ISDKDymoAddin
Dim dyLabel As DYMO_DLS_SDK.ISDKDymoLabels

Set myDymo = New DYMO_DLS_SDK.DymoHighLevelSDK

Set dyAddin = myDymo.DymoAddin
Set dyLabel = myDymo.DymoLabels

dyAddin.SelectPrinter dyAddin.GetDymoPrinters

dyAddin.Open Environ$("USERPROFILE") & "\My Documents\DYMO Label\Labels\BoardFile.label"
dylabe.SetField "Text", "Lot Number: " & Range("A" & LR + 1) & vbCr & "Item Number: " & Range("B" & LR + 1) & vbCr & "Order Number:" & Range("E" & LR + 1)
dyAddin.Print2 1, True, 1

Set myDymo = Nothing

没有错误代码，但也没有打印标签，所以我不知道下一步该做什么。

4

1 回答 1

0

您在发布的代码中有错误（标签中缺少“l”）：

dylabe.SetField "Text",

但是，我尝试按照您的方式运行，vba 在该行抛出了一个错误，您说您没有得到 - 所以我认为这是您的问题而不是您的代码中的错误。

我玩了一下，可能的原因是您的标签文件路径不正确。如果我将 vba 指向一个不存在的标签，它将使用上次使用的标签文件打印几次，然后开始播放并停止打印。

您能否检查此行是否正确？：

dyAddin.Open Environ$("USERPROFILE") & "\My Documents\DYMO Label\Labels\BoardFile.label"

您可以使用 dymo 软件进行打印吗？

于 2019-12-03T01:04:46.590 回答