Datamax E-Class Mark II Programmer's Manual

Appendix B – Sample Programs
170 Class Series 2 Programmer’s Manual
StartUpPosition = 3 ‘Windows Default
Begin VB.ComboBox cmboFonts
Height = 315
Left = 90
TabIndex = 2
Text = “Font List”
Top = 45
Width = 2130
End
Begin VB.CommandButton cmdExit
Caption = “Quit”
Height = 465
Left = 1350
TabIndex = 1
Top = 495
Width = 825
End
Begin VB.CommandButton cmdPrint
Caption = “Print”
Height = 465
Left = 90
TabIndex = 0
Top = 495
Width = 870
End
End
Attribute VB_Name = “Form1”
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
‘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.

Datamax E-Class Mark II Specifications

General

Resolution	203 dpi (8 dots/mm) or 300 dpi (12 dots/mm)
Operating Temperature	40°F to 95°F (4°C to 35°C)
Storage Temperature	-40°F to 140°F (-40°C to 60°C)
Print Method	Direct Thermal / Thermal Transfer
Max Print Speed	6 inches per second (ips)
Memory	8 MB DRAM
Interface	Serial, Parallel, USB
Media Type	Labels, Tags, Receipts
Media Width	0.75" (19 mm) to 4.65" (118 mm)
Media Thickness	0.0025 to 0.008 inches (0.0635 to 0.2032 mm)
Power Requirements	100-240 VAC, 50-60 Hz