Кнопка печати VBA для Dymo 450 Twin Turbo - настройка размера этикетки + печать выбранных ячеек - PullRequest
Новая
       20

Кнопка печати VBA для Dymo 450 Twin Turbo - настройка размера этикетки + печать выбранных ячеек

0 голосов
/ 21 июня 2020

Кто-нибудь, пожалуйста, помогите мне, я в своем абсолютном уме с писателем ярлыков Dymo в VBA. У меня 450 Twin Tubo. Я пытаюсь создать кнопку, которая будет печатать выбранные ячейки на левом рулоне на основе размера этикетки 30336, а другая кнопка будет печатать выделенные ячейки на правом рулоне размером 30321. Ниже представлено то, что я придумал для печати одного размера, с намерением просто продублировать его для второго и изменить размер этикетки - если бы я мог понять, как отрегулировать размер этикетки. Это лучшее, что я мог придумать, основываясь на информации, доступной от Dymo (я даже позвонил им, что неудивительно, бесполезно), поэтому любая помощь приветствуется!

Спасибо! 

Sub PrintSmallLabel()

   Dim myDymo As DYMO_DLS_SDK.DymoHighLevelSDK
    Dim dyAddin As DYMO_DLS_SDK.ISDKDymoAddin
    Dim dyLabel As DYMO_DLS_SDK.ISDKDymoLabels
    Dim Selected As String
    

   Set myDymo = New DYMO_DLS_SDK.DymoHighLevelSDK
    
    Set dyAddin = myDymo.DymoAddin
    Set dyLabel = myDymo.DymoLabels
    
    dyAddin.ObjectDataEdit.Clear ("")
    dyAddin.ObjectNameCmb.Items.Clear ("")
    
    dyAddin.SelectPrinter dyAddin.GetDymoPrinters

    dyAddin.Open Environ$("USERPROFILE") & "Documents\DYMO Label\Labels\Layouts\Large Address.label"
    Range("C:F5").Select
    Selection.Copy
    dyLabel.SetField "TEXT", "My text goes here"
    dyAddin.StartPrintJob ("")
    dyAddin.Print2 1, True, 2
    dyAddin.EndPrintJob ("")
    
   
End Sub
...