[Risolto] Lista stampanti installate

[milio]

Mi son perso....  

Come da oggetto, esiste una funzione o array dove ritorna l'elenco delle stampanti installate nel sistema?

no SHELL mi raccomando

 

[vuott]

Non mi sembra di aver mai incontrato una specifica funzione Gambas che ritorni le stampanti presenti nel proprio sistema.

Ad ogni modo, ho posto questa domanda nella Mailing List Internazionale.


Nel frattempo, mi permetto sommessamente di segnalare un'alternativa (testata con Ubuntu), utilizzando le sole funzioni di Gambas, senza Shell, come da te richiesto:

Codice: gambas [Seleziona]

Public Sub Button1_Click()

  Dim stampante As String

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

    Print File.BaseName(stampante)
     
  Next

End

[milio]

Mi basta e avanza...

 
Grazie vuott (ormai omnipresente)

[Golia]

Già che ci siamo..
per sapere qual'è la stampante predefinita impostata?

[vuott]

per sapere qual'è la stampante predefinita impostata?

Dovrebbe   andare bene questo:

Codice: gambas [Seleziona]

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  
      
End

[vuott]

Ad ogni modo, ho posto questa domanda nella Mailing List Internazionale.

Ho avuto una risposta da Minisini:
« This is something missing. But it can be implemented in gb.qt4 and
gb.gtk (the needed API exists in both toolkits).

Regards,

--
Benoît Minisini »

....e così sembra proprio che milio determinerà un'integrazione ai componenti gb.qt4  e  gb.gtk.  

[vuott]

vuott (ormai omnipresente)

...non vorrei proprio, così, fare le scarpe a San Midi !   

[sotema]

Ad ogni modo, ho posto questa domanda nella Mailing List Internazionale.

Ho avuto una risposta da Minisini:
« This is something missing. But it can be implemented in gb.qt4 and
gb.gtk (the needed API exists in both toolkits).

Regards,

--
Benoît Minisini »

....e così sembra proprio che milio determinerà un'integrazione ai componenti gb.qt4  e  gb.gtk.  

...e poi dici di non esere più ambasciatore!!!

[Golia]

devo ancora provare ma sono sicuro che funziona 
grazie

[vuott]

...e poi dici di non esere più ambasciatore!!!

Io sono asino, non Ambassador ! 

devo ancora provare ma sono sicuro che funziona 

...uomo di eccessiva fede !

[md9327]

"esere" Chi è l'asino? eheheheheh

[vuott]

"esere" Chi è l'asino? eheheheheh

Non mi maltrattare sotema. 

[md9327]

 

[vuott]

Ho avuto una risposta da Minisini:
« This is something missing. But it can be implemented in gb.qt4 and
gb.gtk (the needed API exists in both toolkits).

Regards,

--
Benoît Minisini »

...ed infatti ora è possibile conoscere direttamente cpon la Classe Printer sia le stampanti installate nel nostro sistema, sia la stampante predefinita,

Esempio:

Codice: [Seleziona]

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