Datamax A-4310 Programmer's Manual page 169

'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
Printer.Width = 5760
Printer.CurrentX = 1440
Printer.CurrentY = 2160
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
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.
Class Series Programmer's Manual
Appendix B – Sample Programs
cmboFonts.AddItem Printer.Fonts(I)
'4.5 inches in twips
'4 inches in twips
'1 inch (column position)
'2 inches (row position)
' Determine number of fonts.
' Put each font into
153