Question

我在网上找到了一些代码，说您可以在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

没有错误代码，但也没有打印标签，所以我迷失了下一步。

Answer 1

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

dylabe.SetField "Text",

但是，我尝试按照您的要求运行，而vba在那行抛出了一个错误，您说您没有得到-因此，我认为这是您的问题而不是您的代码中的错误。

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

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

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

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

从Excel VBA打印到DYMO打印机

1 个答案: