请问，类似超市的售货记录打印怎么搞？

wwwwa

使用OPEN "LPT1" FOR OUTPUT AS #1打开
    它，然后用若干条PRINT #1,"......"

wwwwa

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