使用带有 VB.NET Windows 窗体的新 Dymo Connect SDK 打印自定义标签

Question

以下代码将从计算机上保存的图像路径中打印带有默认文本和二维码图像的标签，但我需要添加将文本和二维码图像替换为自定义文本和二维码图像。我在网上找不到新 SDK 的任何示例，GitHub 上有一些参考，但无法将任何东西拼凑起来。

我安装了 NuGet 包 Dynmo.Connect.SDK

Imports DymoSDK.Implementations

Dim dymoSDKLabel As DymoSDK.Implementations.DymoLabel

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

Dim SelectedPrinter As String = "DYMO LabelWriter 450"

Dim copies As Integer = 1

Dim barcodeGraphsQuality As Boolean = True

dymoSDKLabel = New DymoLabel()  
                         
dymoSDKLabel.LoadLabelFromFilePath("C:\Users\User\Documents\QR.dymo")

DymoPrinter.Instance.PrintLabel(dymoSDKLabel, SelectedPrinter, copies, barcodeGraphsQuality)

End Sub

Answer 1

我想说我找到了自己问题的答案，以防有人想知道怎么做。我在 Dymo Connect 软件程序中创建了一个名为 label.dymo 的标签。我在标签中添加了一个 TextObject 和一个 ImageObject，位于中间并保存了标签。我安装了一个名为 QRCoder 的免费 NuGet 包，并在下面的示例代码中引用了它。名为 id 的字符串变量来自我的数据库，是刚刚创建的行 id（最后插入行 id）。 QrCode 生成一个与我的 id 变量匹配的 QRCode，然后将其转换为 base64string，因为这是 Dymo ImageObject 支持的格式。您可以根据项目的需要将 id 变量替换为任何数字或文本。

Imports DymoSDK.Implementations

Imports QRCoder

Dim dymoSDKLabel As DymoSDK.Implementations.DymoLabel

Dim LabelTextObject As DymoSDK.Interfaces.ILabelObject

Dim LabelQRObject As DymoSDK.Interfaces.ILabelObject

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

Dim gen As New QRCodeGenerator

Dim data = gen.CreateQrCode(id, QRCodeGenerator.ECCLevel.Q)

Dim qrCode As New Base64QRCode(data)

Dim base64qrcode As String = qrCode.GetGraphic(20)

Dim SelectedPrinter As String = "DYMO LabelWriter 450"

Dim copies As Integer = 1

Dim barcodeGraphsQuality As Boolean = True

dymoSDKLabel = New DymoLabel()  
                         
dymoSDKLabel.LoadLabelFromFilePath("C:\Users\User\Documents\label.dymo")

LabelTextObject = dymoSDKLabel.GetLabelObject("TextObject")

dymoSDKLabel.UpdateLabelObject(LabelTextObject, id)

LabelQRObject = dymoSDKLabel.GetLabelObject("ImageObject")

dymoSDKLabel.UpdateLabelObject(LabelQRObject, base64qrcode)

DymoPrinter.Instance.PrintLabel(dymoSDKLabel, SelectedPrinter, copies, barcodeGraphsQuality)

End Sub