从 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软件进行打印？

从 Excel VBA 打印到 DYMO 打印机

Printing to DYMO Printer from Excel VBA

excel

vba

dymo