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

Se, poi, si desidera conoscere la stampante impostata come predefinita (default), potremo utilizzare quest'altro codice (si dovrà attivare il componente gb.desktop; e si dovrà aver installato nel proprio sistema l'applicazione xterm):

Public Sub Button1_Click()
 
 Dim fl As File  
 Dim s As String  
 Dim ss As New String[]  
 Dim j As Byte  
   

' E' necessario avere il pieno accesso alla lettura del seguente file:
   Desktop.RunAsRoot("chmod 4777 /etc/cups/printers.conf.O ")
   
' Resta in attesa fino a che i permessi del file in questione non saranno cambiati:
   Do  
     Wait 0.01  
   Loop Until Stat("/etc/cups/printers.conf.O").Auth = "rwsrwxrwx"  
    
 
    fl = Open "/etc/cups/printers.conf.O" For Input
    
    While Not Eof(fl)  
      Input #fl, s
' Carichiamo nell'array di tipo stringa tutte le informazioni,
' suddivise parola per parola, presenti nel file:
      ss.Add(Trim(s))  
    Wend  
 

    For j = 0 To ss.Max

' Individuiamo, quindi, la stampante impostata come predefinita (default):
      If ss[j] = "<DefaultPrinter" Then  
        Print "La stampante predefinita è: "; Replace(ss[j + 1], ">", "")  
        Exit  
      Endif  

    Next  
 
End

Note

[1] Testato su Ubuntu.