Datamax A-Class, Programmer'S Manual

Page: 183 / 330

Appendix B – Sample Programs
Class Series 2 Programmer’s Manual 171
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.
VB Application to Send Raw Data via Printer Driver
This is a sample Visual Basic program that checks for any printer driver attached to
“LPT1”. If one is installed then a DPL file can be printed via the print driver. **Note that
this does not have to be a Datamax-O’Neil DPL print driver. DPL is created by the
application and sent to LPT1.
To begin, a global variable called SelPrinter must be defined as a string. Then use the
following code to create a .frm file.
VERSION 5.00
Object = “{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0”; “comdlg32.ocx”
Begin VB.Form Form1
Caption = “Form1”
ClientHeight = 1290
ClientLeft = 165
ClientTop = 735
ClientWidth = 3750
LinkTopic = “Form1”
MaxButton = 0 ‘False
MinButton = 0 ‘False
ScaleHeight = 1290
ScaleWidth = 3750
StartUpPosition = 3 ‘Windows Default
Begin MSComDlg.CommonDialog CommonDialog1