Display printer list and print to selected printer.
Display printer list and print to selected printer.
Rate Display printer list and print to selected printer.
(1(1 Vote))
'Display printer list
Private Sub Form_Load()
For Each P In Printers
List1.AddItem P.DeviceName
Next
End Sub
'Prin test to selected printer
Private Sub Command1_Click()
Set Printer = Printers(List1.ListIndex)
Printer.Print "Print"
Printer.EndDoc
End Sub
Display printer list and print to selected printer. Comments
No comments yet — be the first to post one!
Post a Comment