Software Manual
67
■
PDF417 printing - Sample 1
Private Sub Command4_Click()
Printer.Font.Name = "Printer 17cpi Tall"
Printer.Print "PDF417 Test Print for VB 6.0"
Printer.Font.Name = "Printer 17cpi"
Printer.Print
Printer.Print "DATA:"
Printer.Print "1234567890"
Printer.Print
Printer.Print "PDF417: ";
Printer.Font.Name = "PDF417"
Printer.Print "S023";
' Specifies the barcode size.
Printer.Print "E3";
' Specifies the ECC level.
Printer.Print "M3"
' Specifies the X-direction size of the PDF417 module.
Printer.Print "A3"
' Specifies the aspect ratio of the PDF417 module.
Printer.Print "D";
' Specifies bar code data.
Printer.Font.Name = "DATA1"
' DATA1 = 0x0000 - 0x005F
Printer.Print Chr(&H2A);
'
Specifies the number of barcode data bytes.
Printer.Print Chr(&H20);
Printer.Font.Name = "ESC_FONT"
' ESC_FONT = 0x0020 - 0x007F
Printer.Print "1234567890";
Printer.Print.Name = "PDF417"
Printer.Print "P"
' Prints bar code data.
Printer.EndDoc
End Sub
