|
Key = "AAAAKKKKKKKKKKKK"
LicNo = "101"
WSNO = "1234"
ProductName = "Horlicks"
CustomerName = "XXX"
VALIDITY = "12"
CompanyName = Xyz company
Open "LPT1" For Output As #1
Print #1, Chr(2) + "c0000"
Print #1, Chr(2) + "KI503"
Print #1, Chr(2) + "O0220"
Print #1, Chr(2) + "f290"
Print #1, Chr(2) + "KW0256"
Print #1, Chr(2) + "KI7" + Chr(1)
Print #1, Chr(2) + "V0"
Print #1, Chr(2) + "L"
Print #1, Chr(2) + "H12"
Print #1, Chr(2) + "C"
Print #1, Chr(2) + "A2"
Print #1, Chr(2) + "D11"
Print #1, Chr(2) + "121100000000018" + Key
Print #1, Chr(2) + "121100000800003" + "LIC NO"
Print #1, Chr(2) + "121100000800125" + "W.S NO :"
Print #1, Chr(2) + "121100000670003" + "ROD"
Print #1, Chr(2) + "121100000400003" + "CUST"
Print #1, Chr(2) + "121100000130003" + "LICENSE KEY :-"
Print #1, Chr(2) + "121100000800054" + ":" + LicNo
Print #1, Chr(2) + "121100000800176" + WSNO
Print #1, Chr(2) + "121100000670054" + ":" + ProductName
Print #1, Chr(2) + "121100000400054" + ":" + CustomerName
Print #1, Chr(2) + "121100000260003" + "VALIDITY"
Print #1, Chr(2) + "121100000260054" + ":" + VALIDITY + "Months"
Print #1, Chr(2) + "121100000540003" + "CO NAME"
Print #1, Chr(2) + "121100000540054" + ":" + CompanyName
Print #1, Chr(2) + "^01"
Print #1, Chr(2) + "Q0001"
Print #1, Chr(2) + ":0001"
Print #1, Chr(2) + "E"
Close #1
End Sub
|
|