'初始化API
 Dim ccprintapi As Object
 Set ccprintapi = CreateObject("Chicore.CCPrintingApiNet")
 
 Call ccprintapi.CCSetOpenId(m_OpenId)
 Call ccprintapi.CCSetTokens(m_Tokens)

 '獲取電腦上安裝的打印機
Dim allprinters() As String
allprinters = ccprintapi.CCGetPrinterListExSync(m_ItemId)

            '定義參數 數組
            Dim cfgPrintSettings(40) As String
            'ItemID
            cfgPrintSettings(0) = m_ItemId
            'ItemUID
            cfgPrintSettings(1) = m_ItemUID
            'ItemFUID
            cfgPrintSettings(2) = m_ItemFUID
            'UseDefaultPrinter
            cfgPrintSettings(3) = "0"
            '********************************************************************************************************************
            'PrinterName 指定打印機名稱
            cfgPrintSettings(4) = "Deli DL-888C"
            'NotUsePagesettings
            cfgPrintSettings(5) = "0"
            '0-打印，3-獲取打印預覽
            cfgPrintSettings(6) = "0"
            '********************************************************************************************************************
            'TemplateMode 模板方式，0-客戶端模板，1-遠程模板，2-如果本地模板存在，使用本地，不存在使用遠程模板
            cfgPrintSettings(7) = "1"
            'TemplateURL 遠程模板URL
            cfgPrintSettings(8) = "http://img.51321.cn/web/chicore/VPrinting/API"
            'cfgPrintSettings(8) = "d:\\TEMP"
            'TemplateName 模板文件名
            cfgPrintSettings(9) = "987.Lblx"
            '不使用模板時，自繪制
            cfgPrintSettings(10) = ""
            '打印數據的類型，0-數組，1-Json數組，元素為JSON對象，字段：值
            cfgPrintSettings(11) = "1"
            '打印數據
            cfgPrintSettings(12) = "[{Field1:""1122344234"", Field2:""4瓶x52"",Field3:""901201251002404"", Field4:""325435""},{Field1:""1122344235"", Field2:""4瓶x52"",Field3:""901201251002405"", Field4:""325488""},{Field1:""1122344235"", Field2:""4瓶x52"",Field3:""901201251002405"", Field4:""325488""}]"
            '打印內容允許，半角逗號1-允許，0-不允許, JSON數組傳入數據時，無效
            cfgPrintSettings(13) = "1"
            '數據的字段分隔符
            cfgPrintSettings(14) = ";"
            '********************************************************************************************************************
            '打印范圍，0-所有頁，2-指定頁碼
            cfgPrintSettings(15) = "0"
            '指定頁碼時，開始頁碼
            cfgPrintSettings(16) = "1"
            '指定頁碼時，結束頁碼
            cfgPrintSettings(17) = "1"
            '打印份數
            cfgPrintSettings(18) = "1"
            '是否逐份打印，0-否，1-是
            cfgPrintSettings(19) = "0"
            'PrintToStop
            cfgPrintSettings(20) = "0"
            'Save
            cfgPrintSettings(21) = "0"
            '雙面打印 -1 使用打印機默認的雙面設置，1 - 單面打印
            cfgPrintSettings(22) = "1"
            '0 自定義， 1 按名稱（如果沒有則自定義） ，2 按尺寸內建紙張,尺寸必須完全相等（如果沒有則自定義） ，3 按內建紙張ID （如果沒有則自定義）
            cfgPrintSettings(23) = "0"
            '按名稱時的，紙張名稱
            cfgPrintSettings(24) = ""
            '打印SessionId
            cfgPrintSettings(25) = ""
            'EnableLog
            cfgPrintSettings(26) = "0"
            '按指令順序打印
            cfgPrintSettings(27) = "1"          
     
             Dim hr As String
             '進行打印
             hr = ccprintapi.CCPrintExSync(cfgPrintSettings)