wps js生成条形码，批量生成code128条形码小标签并导出为pdf文件

最近从vba转到js宏，以前写vba可以引用BarcodeX控件生成条形码，但我不知道怎么在wps js环境引用第三方控件，所以只能用Shapes.AddPicture方法插入条形码图片，这里利用bwip-js的在线api接口生成条形码。

bwip-js 作者的GitHub地址

一、bwip-js条形码在线 API ：

http://bwipjs-api.metafloor.com/
https://bwipjs-api.metafloor.com/

然后指定两个必须参数：bcid参数指定条形码类型、text参数指定条形码的值，通过拼接参数生成条形码，例如生成code128、20230208的条形码：

https://bwipjs-api.metafloor.com/?bcid=code128&text=20230208&includetext=true&textsize=12

二、wps js利用Shapes.AddPicture方法插入条形码图片

AddPicture(链接, 是否链接文件, 是否与文档保存, 左边距离, 顶部距离, 图片宽度, 图片高度)，例如在工作表左边距离20、顶部距离20，插入一个宽度120、高度60的条形码图片

let sht = ThisWorkbook.ActiveSheet
let link = 'https://bwipjs-api.metafloor.com/?bcid=code128&text=20230208&includetext=true&textsize=12'
let pic = sht.Shapes.AddPicture(link, true, true, 20, 20, 120, 60)

三、案例：批量code128条形码小标签并导出为pdf

Sheet1工作表数据

Sheet2工作表页面布局设置

代码

/**
 * CommandButton1_Click Macro
 */ 
function CommandButton1_Click() {
    let wb = ThisWorkbook
        , sht1 = wb.Sheets(1)
        , sht2 = wb.Sheets(2)
        , data = sht1.Range('A2').CurrentRegion.Value2
        , today = dateFormat('yyyy-mm-dd', new Date)

    if (data.length <= 1 && data[0].length != 6) return alert('请检查数据是否正确')

    //删除原条形码图片
    for (let i of sht2.Shapes) {
        i.Delete()
    }

    sht2.Range('A1:H20').Value2 = ''
    sht2.Range('A1:H20').Copy(sht2.Range('I1'))
    sht2.Columns('A:H').Delete()
    let rng = sht2.Range('A1:H20')
    
    for (let i = 1; i < data.length; i++) {
        let j = 20 * i + 1
        rng.Copy(sht2.Range('A' + j))
        sht2.Range('B' + (j + 5)).Value2 = data[i][0]
        sht2.Range('A' + (j + 9)).Value2 = today + ', ' + data[i][4] + ', ' + data[i][5]
        sht2.Range('A' + (j + 14)).Value2 = data[i][1] + ', ' + data[i][2] + ', ' + data[i][3]
    }

    for (let i = 1; i < data.length; i++) {
        let link = `https://bwipjs-api.metafloor.com/?bcid=code128&text=${data[i][0]}&textsize=12&height=9`
        let pic = sht2.Shapes.AddPicture(link, true, true, 65, (270 * i + 15), 300, 50)
    }
    
    sht2.Rows('1:20').Delete()
    let fileName = ThisWorkbook.Path + `\\Lable${dateFormat('yyyymmddHHMMSS', new Date)}.pdf`
    sht1.Visible = false
    ThisWorkbook.SaveAs(fileName, 103)
    sht1.Visible = true
    sht1.Select()
    alert('完成')

}

//日期格式化
function dateFormat(fmt, date) {
    let ret
    const opt = {
        'y+': date.getFullYear().toString(),
        'm+': (date.getMonth() + 1).toString(),
        'd+': date.getDate().toString(),
        'H+': date.getHours().toString(),
        'M+': date.getMinutes().toString(),
        'S+': date.getSeconds().toString()
    }
    for (let k in opt) {
        ret = new RegExp('(' + k + ')').exec(fmt)
        if (ret) {
            fmt = fmt.replace(ret[1], (ret[1].length == 1) ? (opt[k]) : (opt[k].padStart(ret[1].length, '0')))
        }
    }
    return fmt
}