Appendix B – Sample Programs
Class Series Programmer’s Manual 153
‘Print label by clicking print button with the mouse
Private Sub cmdPrint_Click()
‘font name as seen in application font list box
‘if not found, driver will inform GDI to generate an
‘image that will be downloaded
Printer.FontName = cmboFonts.Text
‘1,440 twips equals one inch
Printer.Height = 6480 ‘4.5 inches in twips
Printer.Width = 5760 ‘4 inches in twips
Printer.CurrentX = 1440 ‘1 inch (column position)
Printer.CurrentY = 2160 ‘2 inches (row position)
Printer.Print “0123456789”
Printer.EndDoc
End Sub
Private Sub Form_Load()
Dim X As Printer
Dim I As Integer ‘Used for the font list
‘ search for printer queue name / driver name
For Each X In Printers
If X.DeviceName = “Datamax I-4206” Then ‘printer found
‘ Set printer as system default.
Set Printer = X
For I = 0 To Printer.FontCount - 1 ‘ Determine number of fonts.
cmboFonts.AddItem Printer.Fonts(I) ‘ Put each font into
list box.
Next I
Exit For
End If
Next
End Sub
‘Exit the program and shut down the serial port
‘by clicking Exit button with the mouse
Private Sub cmdExit_Click()
End
End Sub
When the program is run, the combo box should be populated with the available fonts as shown below.
To Next Page
Loading...
