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