asp.net connect NiceLabel5

  วันนี้เราจะออกสั่ง Print งานโดยใช้ NiceLabel5 กันน่ะครับ 

ดาวโหลดโปรแกรมจาก Web site แล้วทำการติดตั้งเลยน่ะครับ

 
หลังจากที่เราติดตั้งโปรแกรม NiceLabel5 เสร็จ ให้เราทำการ
ADD  Referrence ของโปรแกรม NiceLabel5 ตามรูปด้านล่าง ครับ

 เลือก Browse file ตามรูปด้านล่างครับ ->>   C:\Program Files\EuroPlus\NiceLabel 5\bin
ชื่อไฟล์                                               ->>  NiceLabel5WR.dll
 








 ขั้นตอนการสร้าง   TEMP Label   Move Honda.lbl 
--> จัดเก็บที่      C:\RMW\Nicelabel\\Move Honda.lbl

 

ตั้งชื่อ ตัวแปล สำหรับเรียกใช้งาน
   "Maker"
   "ShefBin"
   "Barcode"
 

ขั้นตอนการเขียน CODE 

Imports NiceLabel5WR
Public Class WebForm2
    Inherits System.Web.UI.Page

'ประกาศค่าตัวแปล
    Dim strBarcode As Object, varShefBin As Object, varBarcode2 As Object
    Private Const CONST_Maker As String = "Maker"
    Private Const CONST_ShefBin As String = "ShefBin"
    Private Const CONST_Barcode As String = "Barcode"
    Dim nlApp As New NiceLabel5WR.NiceApp
    Dim nlLabel As New NiceLabel5WR.NiceLabel
    Dim Result As Boolean
    Dim id As Long
    Dim sFile As String

'สร้าง Button สำหรับใช้งาน 
Protected Sub ConnNicelabel_Click(sender As Object, e As EventArgs) Handles ConnNicelabel.Click


        sFile = "C:\RMW\Nicelabel\\Move Honda.lbl"
        strBarcode = "H"
        varShefBin = "WHS123456"
        varBarcode2 = "WHS111111111111111"


        'สั่ง Print
        id = nlApp.LabelOpen(sFile)
        Result = nlApp.LabelSetVar(id, CONST_Maker, "" & CStr(strBarcode), 1, 1)
        Result = nlApp.LabelSetVar(id, CONST_ShefBin, "" & CStr(varShefBin), 1, 1)
        Result = nlApp.LabelSetVar(id, CONST_Barcode, "" & CStr(varBarcode2), 1, 1)
        Result = nlApp.LabelPrint(id, 1)
 
    End Sub