Appendix B

Private Sub exit_Click()

End

End Sub

Private Sub Form_Load()

Dim X As Printer

search for printer queue name / driver name For Each X In Printers

If X.Port = “LPT1:” Then ‘printer found

Set printer as system default. SelPrinter = X.DeviceName Exit For

End If

Next

End Sub

Private Sub lpt2_Click()

End Sub

Private Sub open_Click() CommonDialog1.ShowOpen loadfile = CommonDialog1.FileName txtFile.Text = loadfile

End Sub

Private Sub Printer_Click()

CommonDialog1.ShowPrinter

End Sub

This will create the form pictured below.

Note: It may be necessary to remove and reinsert the common dialog control due to Windows® registry issues.

82

E-Class DPL Programmer’s Manual

Page 92
Image 92
Datamax E4203 manual This will create the form pictured below