![](/images/new-backgrounds/1189812/189812183x1.webp)
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 |