Individuare le stampanti presenti nel proprio sistema

Se si vogliono individuare le stampanti riconosciute e presenti nel proprio sistema, è possibile interrogare i file, creati per ciascuna di esse, nella cartella: /etc/cups/ppd/ |1|. Ciascuno di tali file riporta il nome della stampante, alla quale si riferisce, nonché l'estensione .ppd. Pertanto, il compito è quello di prendere il solo nome del file, che corrisponde anche alla singola stampante, escludendo l'estensione.

Potremo dunque utilizzare questo semplice codice:

Public Sub Button1_Click()

 Dim stampante As String

   For Each stampante In Dir("/etc/cups/ppd/", "*.ppd").Sort()

     Print File.BaseName(stampante)
    
   Next

End

Note

[1] Testato su Ubuntu.