从Excel VBA打印到DYMO打印机

Question

我在网上找到了一些代码，上面写着你可以在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

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

Answer 1

发布的代码中有一个错误(标签中缺少'l‘)：

dylabe.SetField "Text",

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

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

您能检查一下这行吗？：

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

你能用dymo软件打印吗？