[VB .NET] TSC BARCODE PRINT / QR CODE

'프린트 오픈
Call openport("TSC 4420")

'라벨가로길이, 라벨세로길이, 속도, 어둡기, 0-갭/1-마크, 라벨간격, 상단여백
Call setup(X, Y, "1", sDarkNess, "0", "3", "0")

 '버퍼클리어
Call clearbuffer()

Dim sQRBar As String

sQRBar = "TEST DATA OUTPUT"

Call sendcommand("QRCODE 420,80,H,2,A,0,M2,S7," + """" + sQRBar + """")

'인쇄레이블수, 인쇄매수
Call printlabel("1", "1")

Call closeport()