by Aminuddin al Fathoni (1 Submission)
Category: Miscellaneous
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Fri 9th May 2003
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Display printer list and print to selected printer.
VBcoders
'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