線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1985
推到 Plurk!
推到 Facebook!

delphi下 调用codesoft档案问题

缺席
xnium
一般會員


發表:27
回覆:26
積分:10
註冊:2007-09-05

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-05-29 22:29:57 IP:58.210.xxx.xxx 訂閱
各位大侠,小弟初学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!
系統時間:2024-03-29 6:10:21
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!