Software Manual
66
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
