各位大侠，小弟初学delphi，最近对delphi 调用codesoft打印条码比较感兴趣，
我是想实现这样的效果：用codesoft编辑好模板，然后调用数据库里面的资料，替换掉codesoft档案的条码部分内容，然后输出到热转印条码打印机上面去。
从网络上查了些代码，勉强能用了，但是有看到别人用vb写的类似的程序（没有源码），他的程序可以做到20个条码打印一次，就是他会先从数据库抓20条资料，然后一次送到打印机，而我从网络上找到的demo，是一次打印一个的，因为标签纸是一行4个或者数个，每次打一个的话，就跳一行纸，很浪费的
不知道我怎么能达到vb写的那程序的效果。我从网络上找到的demo如下：（就是yachanga大侠的代码）
procedure TFormMain.btnPrintClick(Sender: TObject);
var
app,doc, vars, vari: Variant;
i: Integer;
begin
try
app := CreateOleObject('Lppx.Application'); // Create Ole Object
app.Visible := True;
app.UserControl := True;
doc := app.ActiveDocument; // Link Doc
doc.Open('D:\XXX.Lab'); // Open Doc
doc.PrintLabel(1); // Print Label
doc.FormFeed; // Terminate Print job
vars := doc.Variables; // Get Variables collections
for i:= 1 to vars.count do begin
vari:= vars.item(i); // Get Variable
if vari.Name='barcode1' then
begin
vari.Value:='xxxxxxxxxxx'; // Update Variable Value
end;
end;
app.Quit; // Exit Application
except
raise Exception.Create('Error!!');
end;

烦请诸位大侠帮忙看看，谢过先！

------
对岸的菜鸟,但是很喜欢用delphi!