Filter
Top Products
Appendix B
82 E-Class DPL Programmer’s Manual
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.