Attributes属性 的各个二进制位，代表了打印机各种状态，可通过公式提取出来：

如：提取其1024位的状态： (Int(objx.Attributes / 1024)) Mod 2 

       1、先制作报表的WORD或EXCEL模板。

       2、用VBA打开模板。

       3、向给模板【装填数据】。

       4、【打印】或【另存为】模板。

      1、下载条形码字体。在网上搜索你需要的条形码字体，（有很多编码标准，要找你需要的。）

      2、打开win的字体文件夹（C:\Windows\Fonts），将字体文件复制进去。

      3、给需要的字符，设置【字体】-条形码字体名称（word 直接显示为一堆条形码）。

'TableName 需要写入 的本地表 名称

'RS 的字段名，必须全部存在于 TableName 。