delphi 调用codesoft档案问题(100)

各位大侠，小弟初学delphi，最近对delphi 调用codesoft打印条码比较感兴趣，我是想实现这样的效果：用codesoft编辑好模板，然后调用数据库里面的资料，替换掉codesoft档案的条码部分内容，然后输出到热转印条码打印机上面去。从网络上查了些代码，勉强能用了，但是有看到别人用vb写的类似的程序（没有源码），他的程序可以做到20个条码打印一次，就是他会先从数据库抓20条资料，然后一次送到打印机，而我从网络上找到的demo，是一次打印一个的，不知道我怎么能达到vb写的那程序的效果。我从网络上找到的demo如下：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;
do
c := app.ActiveDocument;
// Linkdo
c do
c.Open('D:/XXX.Lab');
// Opendo
c do
c.PrintLabel(1);
// Print Label do
c.FormFeed;
// Terminate Print job vars :=do
c.Variables;
// Get Variables collections for i:= 1 to vars.countdo
begin
vari:= vars.item(i);
// Get Variable if vari.Name='barcode1' then
begin
vari.Value:='xxxxxxxxxxx';
// Update Variable Value end;

end;

app.Quit;
// Exit Applicationexcept raise Exception.Create('Error!!');end;
烦请诸位大侠帮忙看看，谢过先！

自己頂下...

你做的是什么呀，还需要Ole控件的支持吗？自己在网上找找，条形码的资料多的是，不要用这种办法，在Canvas上自己画，在规定的范围内，想要多少有多少，想要什么格式就是什么格式。何苦用这个控件。给你个资源：http://www.delphibbs.com/keylife/images/u191631/BarCode.rar

多谢骏马兄的回答，我是要驱动热转印条码打印机，与通常的调用打印机方式不同，这些打印机有自己的api，不好用一般的打印方式去打印。且，需要打印的格式是多种多样的，通过codesoft创建模板，然后替换其中的内容，实现打印。现在的主要问题是:打印纸一行有3列，我上面的代码，每打一列之后，就自动换行了，这样打印一个标签就浪费2个标签纸，肯定是不行的，不知道大侠有没有什么办法...