从 Excel VBA 打印到 DYMO 打印机答案

【问题标题】：Printing to DYMO Printer from Excel VBA从 Excel VBA 打印到 DYMO 打印机
【发布时间】：2020-03-19 00:06:12
【问题描述】：

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

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

【问题讨论】：

dyAddin.Print2 1, True, 1 行是否返回值？尝试将其打印到控制台。另外，提供 Dymo 打印机参考对我们很有帮助，也许可以添加一个链接 :)
Carlos，你得到它的工作，如果是，请添加一些信息你是如何做到的。这是因为否则我必须提出一个新问题。非常感谢。

标签： excel vba dymo

【解决方案1】：

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

dylabe.SetField "Text",

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

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

请您检查一下这条线是否正确？：

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

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

【讨论】：