Visual # le istruzioni riportate di seguito stampano il nome di tutte le periferiche di stampa disponibili nel sistema operativo nella finestra immediata:
Private Sub command1_click() Dim x As printer For Each x In printers debug.print x.devicename Next End Sub |