delphi下 调用codesoft档案问题 |
缺席
|
xnium
一般會員 ![]() ![]() 發表:27 回覆:26 積分:10 註冊:2007-09-05 發送簡訊給我 |
各位大侠,小弟初学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! |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |