Dymo Label über VBA
05.12.2021 10:13:37
Tony
Da ich schon sehr viele Fragen für meine Arbeitsmappe bei euch klären konnte, wende ich mich nun auch mal direkt an euch.
Ich möchte über VBA auf mein Dymo-Label zugreifen, dies dann jeweils befüllen und direkt drucken. Der Zugriff und auch der Druckauftrag über VBA funktionieren bereits super. Mein Problem liegt daran, dass aktuell immer nur in die erste Textzelle des Dymo Labels mit allen Daten gefüllt wird. Bedeute die weiteren Textfelder werden nicht nacheinander angesprochen.
Meine Daten werden aus den Zellen D18 - D25 bezogen und sollen auch so in die jeweiligen Textfelder eingeordnet werden.
Wenn das mal so läuft wie gedacht, muss ich nur noch das korrekte Registerblatt ansprechen bzw. einfügen und dann würde diese Baustelle auch abgearbeitet sein.
Noch zur weiteren Information... Ich nutze die Dymo Label v8 Software.
Sub Label_Backen()
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") & "\OneDrive\Dokumente\DYMO Label\Labels\Layouts\Backen Vorlage.label"
dyLabel.GetText Range("D18")
'Dies war der Original Code Teil, aber dieser bringt mir nicht viel da hier nur 1 Textfeld angesprochen wird. Auch die SetField Variante habe ich mehrfach getestet.
'dylabel.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
End Sub
Vielleicht kann mir ja jemand bei meinem Problemchen weiterhelfen.
Liber Gruss Tony