無法執行~~ |
|
oaqe
一般會員 發表:8 回覆:5 積分:2 註冊:2007-01-11 發送簡訊給我 |
先聲明這code不是我寫的~這是爬文看到的,但不知為什麼不能執行~
這個程式是用來由Delphi語言去控制將資料丟至標簽機列出標簽紙~ 以下是全部的程式碼,我照貼上來,請各位高手幫小弟看一下,謝謝!! unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin var Lbl: OleVariant; Lbl := CreateOleObject('Lblvw.Document'); // Load label in ReadOnly mode Lbl.Open('D:\aaa.lbl', True); // Get Printer information var Prt: OleVariant; PrtName, PrtPort: WideString; Prt := Lbl.LabelPrinter; PrtName := Prt.Name; PrtPort := Prt.Port; // Get field information var i: integer; Flds, Fld: OleVariant; Count: integer; FldName: WideString; Flds := Lbl.LabelFields; Count := Flds.Count; For i := 1 to Count do begin Fld := Flds(i); Fld.Value := 'abcdef'; end; // Print 2 Labels Lbl.PrintLabel(2) end; end.
------
oo |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |