請問各位知不知道LabelView這套標簽軟體如何去作列印端控制~ |
尚未結案
|
t0288542
中階會員 發表:216 回覆:254 積分:94 註冊:2004-10-06 發送簡訊給我 |
請問各位~
有沒有人寫過關於標簽機器如何去由Delphi語言
去控制將資料丟至標簽機列出標簽紙~
目前所得到是要VB的寫法~如下~
請問我是否可將它轉換成Delphi呢~><"
'Create "Document" (Label) object
Dim Lbl As object
Set = CreateObject ("Lblvw.Document") 'Load label in ReadOnly mode
Lbl.Open("C:\Lvwin60\Aiag.lbl",True) 'Get Printer information
Dim Prt As Object
Dim PrtName As String, PrtPort As String
Set Prt = Lbl.LabelPrinter
PrtName = Prt.Name
PrtPort = Prt.Port 'Get field information
Dim Flds As Object 'Collection
Dim Fld As Object
Dim Count As Integer
Dim FldName As String
Set Flds = Lbl.LabelFields
Count = Flds.Count
For I = 1 To Count
Set Fld = Fld(I)
FldName = Fld.Name
Fld.Value ="abcdef"
Set Fld = Nothing
Next 'Print 2 Labels
Lbl.PrintLabel 2 'Clean Up
Set Prt = Nothing
Set Lbl = Nothing 麻煩大家~或者我可以從那裡知道這方面的訊息~
|
wyndog
資深會員 發表:7 回覆:362 積分:348 註冊:2004-10-12 發送簡訊給我 |
// Create "Document" (Label) object var Lbl: OleVariant; Lbl := CreateOleObject('Lblvw.Document'); // Load label in ReadOnly mode Lbl.Open('C:\Lvwin60\Aiag.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)你會發現,其實 Delphi 使用起 COM 跟 VB 差不多方便 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |