PowerBuilder+Codesoft调用条码格式文件打印

[jyhczg]

PowerBuilder+Codesoft调用条码格式文件打印

如何在pb中调用codesoft条码格式文件打印,

1:先在codesoft中定义好条码格式,保存为lab文件,如A001.LAB

2:在PB中定义好条码产生的规则,套用A001.LAB格式打印输出

比如产生1-1000个号码,如何套用A001.LAB打印输出1000张条码

主要是有没有如何调用codesoft api相关参数资料!

[YANKYO]

网上去找，应该还是可以找到相关的信息的

[jyhczg]

没有找到,才在这里请教各位了...

[balance2009]

codesoft是个什么东西？

[jyhczg]

条码打印软件,有找到一段DEPHI 6的代码示例,请帮转为pb
procedure TForm1.FormActivate(Sender: TObject);
Var week:string;
BarApp,BarDoc:Variant;
Begin
BarApp := CreateOleObject('lppx.Application');
BarApp.Visible:=True;
BarDoc:=BarApp.ActiveDocument;
BarVars:=BarDoc.Variables;
BarDoc.Open('T018S1.Lab');
BarDoc.Variables.Item('Data1').Value:='ABCD';
BarDoc.Variables.Item('Data2').Value:='111';
BarDoc.Variables.Item('Data3').Value:='111ABCD';
Bardoc.Printlabel(1);
BarDoc.FormFeed;
Bardoc.Close;
BarApp.Quit;
end;