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.
To Next Page
Loading...
