Appendix B

‘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.

78

E-Class DPL Programmer’s Manual

Page 88
Image 88
Datamax E4203 manual Appendix B