GESTIONE SCANNER DA VBA



  • GESTIONE SCANNER DA VBA
    di AGNUS data: 26/11/2012 15:48:10

    Innanzitutto saluto tutti
    sono un nuovo iscritto

    Ho questo problema:
    Devo creare un'applicativo che gestisce un registro nel quale ad ogni istanza archiviata corrisponda un file pdf proveniente da scanner.
    Io vorrei che quando registro il nuovo dato con un pulsante apro lo scanner e gli passo già il nome del futuro file pdf che sarà uguale al contenuto di una determinata cella.
    qualcuno sa dirmi se con il comando shell si può passare la cartella ed il nome del file da salvare; oppure se esiste qualche altra soluzione (tipo gestione del file tramite excel vba).
    Grazie anticipatamente



  • di Vecchio Frac data: 26/11/2012 20:01:56

    Il problema vero è: come effettui la scansione? da codice? tramite WIA o EZTwain (che tra parentesi uso pure io per il mio registro protocollo)? il pdf è solo un problema successivo.





  • di AGNUS (utente non iscritto) data: 26/11/2012 22:26:47

    Come faccio ad usare il WIA, non ho proprio idea potresti fare un esempio pratico magari con parti di codice?
    Grazie



  • di Agnus (utente non iscritto) data: 27/11/2012 23:07:13

    Salve Vecchio Frac mi puoi aiutare? Se usi il metodo WIA mi spighi come posso usarlo tramite codice vba ? O se hai qualche suggerimento pratico.
    Grazie



  • di AGNUS data: 29/11/2012 09:53:42

    Ciao e
    scusa Vecchio Frac ma non puoi aiutarmi, sono disperato !!!!!!!!!!!!!!!!!!!!!!!!!!




  • di Vecchio Frac data: 29/11/2012 20:32:53

    Non disperarti, se il progetto è bloccato concentrati su qualche altro aspetto del problema.
    Io in questi giorni sono difficilmente presente.
    In Google, se digiti "VBA WIA", il primo link che trovi è piuttosto interessante (dalla base dati msdn).






  • di AGNUS (utente non iscritto) data: 05/12/2012 15:38:14

    Salve
    Sono riuscito a gestire lo scanner con la libreria del driver WIA (wiaaut.dll),

    questo è un estratto di alcune parti del codice con alcuni parametri:
    Scanner.Items(1).Properties("6146").Value = 4 '4 is Black-white,gray is 2, color 1 (Color Intent)
    Scanner.Items(1).Properties("6147").Value = DPI 'dots per inch/horizontal
    Scanner.Items(1).Properties("6148").Value = DPI 'dots per inch/vertical
    Scanner.Items(1).Properties("6149").Value = 0 'x point where to start scan
    Scanner.Items(1).Properties("6150").Value = 0 'y-point where to start scan
    Scanner.Items(1).Properties("6151").Value = 8.5 * DPI 'horizontal exent 'many scanners have max size of 8.5 by 11
    Scanner.Items(1).Properties("6152").Value = 12 * DPI 'vertical extent

    però non riesco a trovare i parametri da passare per far partire la scansione dal fascicolatore e non dal vetro dello scanner.

    Qualcuno sa quale è il parametro ?



  • di Vecchio Frac data: 05/12/2012 21:01:19

    Da quel che capisco leggendo lo stralcio di codice che probabilmente hai già visto anche tu, su viasual-basic.it, bisogna testare Scanner.Properties.Exists("3088") che restituisce 1 se ci sono fogli nel fascicolatore.

    If Scanner.Properties.Exists("3088") = 1 then ...





  • di Andrea (utente non iscritto) data: 07/12/2012 17:52:42

    Se riuscite a incollare il codice, mi fareste un favore, questa cosa interessa molto anche a me.



  • di Vecchio Frac data: 07/12/2012 18:49:08

    Se cerchi con Google "wiaaut fascicolatore" puoi scegliere il primo risultato trovato, l'esempio è datato ma valido.