Printer select(RISOLTO).

[Berserker79]

Ciao, esiste un modo su gambas (ovviamente) che permetta di visualizzare l'elenco delle stampanti installate sul pc e di selezionare quella voluta???
Ciao e grazie anticipatamente.

[fsurfing]

puoi richiamare il dialog di stampa prima di stampare con:

Codice: [Seleziona]

IF Printer.Setup() THEN RETURN

[Golia]

Io ho fatto questa funzione per restare con gtk, carico il nome delle stampanti in un combobox, ecco quà

PUBLIC SUB Form_Open()
DIM pathtofile AS String
PUBLIC idx AS Integer
pathtofile = User.Home & "/.Gestione/log_plt.txt"
SHELL ("lpstat -a | tee " & pathtofile) WAIT
idx = (Split(file.load(pathtofile), "\n").count) - 1
caricacbstampanti
END

PUBLIC SUB caricacbstampanti()
DIM hFile AS File
DIM n AS Integer
DIM i AS Integer = 0
DIM riga AS String 
DIM arr AS NEW String[idx]
  hFile = OPEN User.Home & "/.Gestione/log_plt.txt" FOR INPUT
     FOR n = 0 TO idx - 1
       LINE INPUT #hFile, riga       
       arr = Left(riga, (InStr(riga, " ") - 1))
        i = i + 1
      NEXT
    CLOSE #hFile
ComboBox1.list = arr 
END

Gradirei suggerimenti e critiche in modo da migliorare 

Ciao

[Ceskho]

@ golia...ma il tuo codice le mostra tutte le stampanti o ne salta una?

[Berserker79]

Grazie Golia, era quello che serviva a me. Infatti debbo selezionare prima la stamnpante per passarla poi ad un altro programma tramite comando shell.
comunque ho apportato delle mofiche al tuo codice:

Codice: [Seleziona]

 DIM strList, type AS String
 
 SHELL "lpstat -a | tee" TO strList
 FOR EACH type IN Split(strList, "\n")
    IF type <> "" THEN 
      cmbSetSt.Add(Left(type, InStr(type, " ") - 1))
    ELSE 
    END IF
 NEXT

Grazie, ciao.

[Golia]

@Cescho
Le legge tutte, almeno nel mio sistema

@Ber..(non potevi metterti un nik più semplice )
Sono contento che ti sia servito, e grazie per avere semplificato il codice,
Mi sono dimenticato di questo, cioè per leggere la stampante predefinita...se hai voglia di sistemare anche questo..

pathtofile = User.Home & "/.Gestione/log_pltp.txt"
SHELL ("lpstat -d | tee " & pathtofile) WAIT
   hFile = OPEN pathtofile FOR INPUT
   LINE INPUT #hFile, riga
   CLOSE #hFile
   predefinita = Right(riga, (Len(riga) - InStr(riga, ": ") - 1))

Ciao grazie

[Berserker79]

Per il momento il secondo comando che hai postato non mi serve. Lo terro a mente dovesse servirmi più avanti.
L'ho modificato così:

Codice: [Seleziona]

DIM riga AS String
SHELL "lpstat -d | tee" TO riga
textbox1.Text = Mid$(riga, InStr(riga, ":") + 2, Len(riga) - InStr(riga, ":") - 2)

Ho utilizzato la funzione Mid$ per non includere nel nome della stampante anche il carattere \n
Ciao.

[Golia]

Ciao grazie