Programmer' s Guide
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
Printer.Font.Bold = False
Printer.Print "Cheese Wiz
Printer.Print "Crackers
Printer.Print "Laundry Soap
Printer.Print "Printer Paper
Printer.Print "Rubber Bands
Printer.Print "Soda
Printer.Print "Candy
Printer.Print "-------------------------------------"
Printer.Print "
Sub Total
Printer.Print "
Tax
Printer.Font.Bold = True
Printer.Print "
TOTAL
Printer.Font.Bold = False
Printer.Print "
---------------------------"
Printer.Print "
Cash
Printer.Print ""
Printer.Font.Bold = True
Nov-07
®
POSjet
1500
PRICE"
$1.49"
$2.59"
$3.29"
$3.89"
$ .99"
$1.49"
$2.29"
$16.03"
$1.28"
$17.31"
$20.00"
Rev M
Codes and Commands
Page 73