Star Micronics TSP100IIIU - Page 73

Software Manual
73
QR Code Print Sample2:
Private Sub Command2_Click()
Printer.Font.Name = "Printer 17cpi Tall"
Printer.Print "QR Code Test Print for VB 6.0"
Printer.Font.Name = "Printer 17cpi"
Printer.Print
Printer.Print "DATA:"
Printer.Print "http://www.star-m.jp/"
Printer.Print
Printer.Print "QR code:";
Printer.Font.Name = "QR_CNTL" ' QR_CNTL font setting
Printer.Print "M1"; ' Bar code model setting
Printer.Print "Eq"; ' Error correction level setting (correction rate: 25%)
Printer.Print "S7" ' Module size setting (size: 7 dot)
Printer.Print "A0"; ' Bar code data setting (automatic data analysis)
Printer.Font.Name = "DATA1" ' DATA1 = 0x0000 - 0x005F
Printer.Print Chr(&H35); '
Printer.Print Chr(&H20); '
Printer.Font.Name = "ESC_FONT" ' ESC_FONT = 0x0020 - 0x007F
Printer.Print "http://www.star-m.jp/"; ' Bar code data (21 bytes)
Printer.Font.Name = "QR_CNTL" ' QR_CNTL font setting
Printer.Print "P" ' Printed characters for bar code data
Printer.EndDoc
End Sub
Change 0x35 → 0x15, 0x20 → 0x0
Number of bytes: 21 (0x15) + 0 (0x0) = 21 bytes