Datamax E-Class Mark II Programmer's Manual

Appendix B – Sample Programs
174 Class Series 2 Programmer’s Manual
MsgBox “You must Open a file to send”, vbExclamation
Exit Sub
End If
‘ Open file.
f1 = FreeFile
Open loadfile For Binary As f1
‘ Open printer for printing
res& = OpenPrinter(SelPrinter, hPrinter, 0)
If res = 0 Then
MsgBox “Unable to open the printer”
Exit Sub
End If
docinfo.pDocName = “MyDoc”
docinfo.pOutputFile = vbNullString
docinfo.pDatatype = vbNullString
jobid = StartDocPrinter(hPrinter, 1, docinfo)
Call StartPagePrinter(hPrinter)
Call WritePrinter(hPrinter, ByVal printdata$, Len(printdata$), written)
While Not EOF(1)
Get #f1, , ch
printdata$ = ch
Call WritePrinter(hPrinter, ByVal printdata$, Len(printdata$),
written)
Wend
Call EndPagePrinter(hPrinter)
Call EndDocPrinter(hPrinter)
Call ClosePrinter(hPrinter) ‘ Close when done
‘ Close file
Close #1
MsgBox “File sent to print spooler.”, vbExclamation
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub exit_Click()
End
End Sub
Private Sub Form_Load()
Dim X As Printer
‘ search for printer queue name / driver name
For Each X In Printers
If X.Port = “LPT1:” Then ‘printer found
‘ Set printer as system default.
SelPrinter = X.DeviceName
Exit For
End If
Next
End Sub
Private Sub lpt2_Click()

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