从Excel VBA打印到DYMO打印机

我在网上找到了一些代码，上面说你可以在Dymo打印机上打印标签。我已启用参考DYMO标签软件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

---

没有错误代码，但也没有打印标签，因此我不知道下一步该怎么办。

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

然而，我尝试按您的方式运行，vba在那一行抛出了一个错误，您说您没有得到-所以我假设这是您的问题中的错误，而不是您的代码中的错误

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

你能检查一下这条线是否正确吗

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

---

您能使用dymo软件打印吗？

dyAddin.Print2 1，True，1行是否返回值？尝试将其打印到控制台。另外，如果有Dymo打印机参考资料，可能会对我们有所帮助，可以添加一个链接：）Carlos，你是否让它工作，如果是，请添加一些信息，说明你是如何让它工作的。这是因为否则我必须提出一个新问题。非常感谢你。

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