先聲明這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