bartender标签打印社区

 找回密码
 立即注册

扫一扫,访问微社区

搜索
查看: 2436|回复: 0

转载:Delphi 调用BarTender打印条码

[复制链接]

72

主题

73

帖子

261

积分

超级版主

Rank: 8Rank: 8

积分
261
发表于 2017-6-17 11:38:43 | 显示全部楼层 |阅读模式
使用Delphi调用BarTender打印条码,在网上搜索了一下,很多都是介绍导入ActiveX组件,其实完全没有必要。用OLE控件完全可以解决。但需要注意所使用的BarTender必须是正式的安装版(PS:破解版好像也可以),试用版和绿色版都不可以二次开发。
下面是测试通过的列子:(需要引用ComObj.Pas文件)

function DoPrint:Boolean;
var
  barApp: Variant;
  barFormat: Variant;
  vPath: string;
begin
  Result := False;
  try
    vPath := ExtractFilePath(Forms.Application.ExeName);
    // 打印第一页
    if not FileExists(vPath+'box.btw') then
    begin
      showMessage('打印标签不存在,请检查!');
      Exit;
    end;
    barApp := CreateOleObject('BarTender.Application.7');
    barApp.Visible := False;
    barFormat := barApp.formats.open(vPath+'box.btw', true, '');
    // 'TEXT'、'BARCODE'均为box.btw标签纸上的控件名称
    barFormat.SetNamedSubStringValue('TEXT', ‘TEXTValue’);
    barFormat.SetNamedSubStringValue('BARCODE', 'BARCODEValue');
    barFormat.printout(False,False);
    barFormat.close(1);
    barApp.quit(1);
  except
    on E: Exception do
    begin
      ShowMessage(E.ClassName + E.Message);
      Exit;
    end;
  end;
  Result := True;
end;

对于Delphi调用Codesoft软件也是同样的道理,只是不同的软件内部封装的方法不一样。参见 http://blog.csdn.NET/qq_19784269/article/details/50570239

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|bartender标签打印社区 ( 苏ICP备16063857号-3

GMT+8, 2019-9-15 22:53 , Processed in 0.067132 second(s), 7 queries , File On.

Powered by Discuz! X3.3

© 2001-2017 昆山卓豪信息技术有限公司

快速回复 返回顶部 返回列表