Magic Wiki-Wakka: Print a Label with List&Labels

Print a Label with List&Labels

Record Main

Select  Virt v.hJob N8
Select  Virt v.LabelFile A125 init='%CTL%CM_Label.lbl'
Select  Virt LL_TEXT N8 init=268435456
Select  Virt LL_NUMERIC N8 init=134217728
Select  Virt R_DefineVariableExt N8
Select  Virt R_Print N8
Select  Virt R_PrintWithBoxStartA N8
Select  Virt R_PrintOptionsDialog N8

Select  Real ProductNo (N8
Select  Real Description A128

Task Prefix (init vaiables once for design)

Update v.hJob = CALLDLL ('CMLL10.LlJobOpen','44',0)

Update R_DefineVariableExt = CALLDLL ('CMLL10.LlDefineVariableExtA','4AA44',v.hJob,'BARCODE','12345678',VAL (GETPARAM ('LL_BARCODE_CODE128'),'N'))

Update R_DefineVariableExt = CALLDLL ('CMLL10.LlDefineVariableExtA','4AA44',v.hJob,'Description','Our Fine Product',LL_TEXT)

Update R_PrintWithBoxStartA=CALLDLL ('CMLL10.LlPrintWithBoxStartA','44A444A4',v.hJob,VAL (GETPARAM ('LL_PROJECT_LABEL'),'N'),C,VAL (GETPARAM ('LL_PRINT_NORMAL'),'N'),VAL (GETPARAM ('LL_BOXTYPE_NORMALWAIT'),'N'),WINHWND (1),'Die Labels werden gedruckt')

Record Suffix (fill variables with real values and print)

Update R_DefineVariableExt = CALLDLL ('CMLL10.LlDefineVariableExtA','4AA44',v.hJob,'BARCODE',STR (ProductNo,'8'),VAL (GETPARAM ('LL_BARCODE_CODE128'),'N'))

Update R_DefineVariableExt = CALLDLL ('CMLL10.LlDefineVariableExtA','4AA44',v.hJob,'Description',Description,LL_TEXT)

Update R_Print = CALLDLL ('CMLL10.LlPrint','44',v.hJob)

Task Suffix

Update v.hJob = CALLDLL ('CMLL10.LlJobClose','44',0)

Magic Wiki-Wakka : LuLlabel

Print a Label with List&Labels