Versione delle 12:15, 31 ago 2019

Se si vogliono individuare le stampanti presenti e riconosciute nel proprio sistema, nonché la stampante impostata come predefinita, si possono adottare almeno due modalità.

Uso della Classe Printer

La Classe Printer ci fornisce alcune proprietà statiche che assolvono alla funzione di cui in oggetto.

Vediamo un esempio pratico:

Public Sub Form_Open()

 Dim stampanti As String
 
  Print "Le stampanti installate sono:"
   
  For Each stampanti In Printer.List
    Print stampanti
  Next
   
  Print "\nLa stampante predefinita è:"
  Print Printer.Default
  
End

Leggere i file presenti nella cartella /etc/cups/ppd/

La seconda modalità prevede di leggere i file, creati per ciascuna di esse, nella cartella: /etc/cups/ppd/ ^{[ Nota 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

Conoscere quale è la stampante impostata come predefinita

Se 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))
    If ss.Max > 0 Then
' Individuiamo la stampante predefinita e ne mostriamo il nome in console:
      If ss[ss.Max - 1] = "<DefaultPrinter" Then Print "La stampante predefinita è: "; Replace(ss[ss.Max], ">", "")  
    Endif  
  Wend
  
  fl.Close
  
End

Si potrà utilizzare anche quest'altro codice ^{[ Nota 1 ]}, più breve, che non necessita di inserire alcuna password:

Public Sub Button1_Click()

 Dim fl As File    
 Dim s As String    
 Dim ss As New String[]      
      
  fl = Open "/etc/printcap" For Input    
       
  While Not Eof(fl)    
    Input #fl, s  
    ss.Add(Trim(s))    
    If ss.Max = 23 Then Print "La stampante predefinita è: "; Split(ss[23], "|")[0]  
  Wend
  
  fl.Close
  
End

Uso della libreria esterna libprintbackend-file.so

Si potrà fare uso della particolare libreria esterna "libprintbackend-file.so", facente parte del gruppo di risorse di GTK+, con la quale è possibile non solo individuare le stampanti presenti nel proprio sistema, ma anche sapere quale stampate è impostata come "predefinita".

Mostriamo un semplice esempio:

Library "/usr/lib/x86_64-linux-gnu/gtk-3.0/3.0.0/printbackends/libprintbackend-file"

' void gtk_init (int *argc, char ***argv)
' Call this function before using any other GTK+ functions in your GUI applications.
Private Extern gtk_init(argc As Pointer, argv As Pointer)

' void gtk_enumerate_printers (GtkPrinterFunc func, gpointer data, GDestroyNotify destroy, gboolean wait)
' Calls a function for all GtkPrinters.
Private Extern gtk_enumerate_printers(func As Pointer, data As Pointer, destroy As Pointer, gwait As Boolean)

' GtkPrinter * gtk_printer_new (const gchar *name, GtkPrintBackend *backend, gboolean virtual_)
' Creates a new GtkPrinter.
Private Extern gtk_printer_new(name As String, backend As Pointer, virtual As Boolean) As Pointer

' gboolean gtk_printer_is_default (GtkPrinter *printer)
' Returns whether the printer is the default printer.
Private Extern gtk_printer_is_default(gprinter As Pointer) As Boolean

' const gchar * gtk_printer_get_name (GtkPrinter *printer)
' Returns the name of the printer.
Private Extern gtk_printer_get_name(gprinter As Pointer) As String


Public Sub Main()
 
 gtk_init(0, 0)
 
 gtk_enumerate_printers(Mostra, 0, 0, True)
 
End


Private Function Mostra(stmp As Pointer, unused As Pointer)
 
 Dim stampante As String
 
 stampante = gtk_printer_get_name(stmp)
 
 Write "\e[0mStampante:    \e[31m" & stampante
 
 If gtk_printer_is_default(stmp) Then Write " - \e[34mpredefinita\e[0m"
 Print
 
End

Note

[1] Testato su Ubuntu.