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

【文件属性】：

文件名称：Delphi+Codesoft 7.0 调用条码格式文件打印

文件大小：284KB

文件格式：RAR

更新时间：2012-01-06 11:00:16

Delphi Codesoft 打印 条码 条形码

Delphi+Codesoft 7.0 调用条码格式文件打印 现附上部分源码(附件中有一个条码格式文件,可设置3个条码，可直接从ERP系统中读取物料编码，名称和规格资料，需要 CodeSoft 7.0 支持,有问题请 email: [e-mail])： procedure TFormMain.btnPrintClick(Sender: TObject); Var s: string; i : Integer; BarApp,BarDoc,BarVars:Variant; // OLE 变量 Begin if not FileExists(edtBClabelName.Text) then begin stat.Panels[2].Text := 'The Barcode Document is not Exists.'; ShowMessage('The Barcode Document is not Exists.'); Exit; btnOpen.SetFocus; end; BarApp := CreateOleObject('lppx.Application'); //arApp.Visible:=True; BarApp.Visible:=False; BarDoc:=BarApp.ActiveDocument; BarVars:=BarDoc.Variables; BarDoc.Open(edtBClabelName.Text); // 变量赋值 if chkParam.Checked then begin BarDoc.Variables.Item('var1').Value:= edtPN.Text; BarDoc.Variables.Item('var2').Value:= edtPartName.Text; BarDoc.Variables.Item('var3').Value:= edtDesc.Text; end; // 打印标签 Bardoc.Printlabel(seqty.Value); // Feed BarDoc.FormFeed; // 关闭 Bardoc.Close; BarApp.Quit; End;

【文件预览】：
Lppx.exe
INVMB.lab