TransAct POSJET 1500, Programmer'S Manual

Page: 87 / 294

Programmer's Guide POSjet
®
1500 Codes and Commands
Nov-07 Rev M Page 73
Printing using a printer driver (Printer Font)
See the documentation that comes with Visual Basic for detailed information on all the function calls that can be
made to print via the Windows printer drivers.
'SELECT OUR PRINTER BY NAME
For Each x In Printers
If x.DeviceName Like "Series 1500" Then
Set Printer = x
Exit For
End If
Next
'SELECT FONT BY NAME
Printer.FontName = "NLQ 10cpi"
Printer.Print " 20 Bomax Rd"
Printer.Print " Ithaca, NY 14850"
Printer.Print ""
Printer.Print ""
Printer.Print ""
Printer.FontName = "Draft 16cpi"
'SELECT BOLD PRINT
Printer.Font.Bold = True
Printer.Print "ITEM PRICE"
Printer.Font.Bold = False
Printer.Print "Cheese Wiz
$1.49"
Printer.Print "Crackers $2.59"
Printer.Print "Laundry Soap $3.29"
Printer.Print "Printer Paper $3.89"
Printer.Print "Rubber Bands $ .99"
Printer.Print "Soda $1.49"
Printer.Print "Candy $2.29"
Printer.Print "-------------------------------------"
Printer.Print " Sub Total
$16.03"
Printer.Print " Tax $1.28"
Printer.Font.Bold = True
Printer.Print " TOTAL
$17.31"
Printer.Font.Bold = False
Printer.Print " ---------------------------"
Printer.Print " Cash $20.00"
Printer.Print ""
Printer.Font.Bold = True