Filter
Top Products
Appendix B
78 E-Class DPL Programmer’s Manual
‘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
ForI=0ToPrinter.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.