Newsgroup: it.comp.appl.access
Titolo: pilotare scanner da access

Buon giorno,
Ho scaricato dal sito comune l'esempio 6.214 Usare uno scanner con VBA
che tramite la DLL wiaaut.dll permette di attivare uno scanner in
automatico da ACCESS.
Vorrei sapere se qualcuno puoi aiutarmi a variare lo script che allego
per selezionare in automatico:
immagine tiff ( in questo momento salva in  bitmap)
qualita bianco e nero
risoluzione 150
possibilita di multipagina
e eventualmente sapere se con questo esempio è possibile gestire il
formato PDF
Grazie
Private Sub Comando1_Click()
Dim aaaa As New WIA.CommonDialog
Dim v As WIA.Vector
Dim Img As WIA.ImageFile
Dim c As Long
'creo un'immagine colorata
'il colore (uno qualsiasi, si tratta di una immagine in memoria)
c = &HFF0000FF 'Blu opaco (A=255,R=0,G=0,B=255)
'creo l'oggetto Vettore
Set v = CreateObject("WIA.Vector")
'aggiungo il colore
v.Add c
v.Add c
v.Add c
v.Add c
'attribuisco a Img l'immagine restituita dallo scanner o dalla
periferica predefinita
Set Img = aaaa.ShowAcquireImage(, ColorIntent, MaximizeQuality, ,
False, True)
'Salvo l'immagine
Img.SaveFile "C:\MiaFoto." & Img.FileExtension
'visualizzo l'immagine salvata in un controllo immagine
Me.Picture1.Picture = "C:\MiaFoto." & Img.FileExtension
End Sub

 ha scritto nel messaggio 
news:1182506806....@k79g2000hse.googlegroups.com...
Buon giorno,
Ho scaricato dal sito comune l'esempio 6.214 Usare uno scanner con VBA
che tramite la DLL wiaaut.dll permette di attivare uno scanner in
automatico da ACCESS.
Vorrei sapere se qualcuno puoi aiutarmi a variare lo script che allego
per selezionare in automatico:
cut
Cerca bene tra i post e troverai molto a riguardo dei tif multipagina.
Comunque seguendo questo link potrai scaricare l'ultima versione aggiornata 
del db che ti eri scaricato:
http://www.frantoiogestione.com/ScannerXP.zip
Fammi sapere.
Ciao, Carlo 

cut
meglio proseguire sul NG, evitando il privato a meno di precisi 
accordi...questo permetterà un'utilità comune.
Eccoti la versione A97:
http://www.frantoiogestione.com/Scanner97.zip
Quanto alla possibilità di stampare un PDF, in questo NG trovi una marea di 
post, primi fra tutti le stampanti free pdf.
Ciao, Carlo

Carlo Costarella ha scritto:

Ciao ,
Grazie sei molto gentile,
Abuso della tua cortesi per chiederti 2 cose,
Mi da un messaggio di errore quando clicco sui pulsanti "proprieta
device" "elenco periferiche" formati supportati PROPRIETA O METODO NON
SUPPORTATI
corrispondente alla riga
Set Dev = CommonDialog1.ShowSelectDevice
la seconda:
Quando clicco su acquisisci si apre la finestra dello scanner per
impostare le proprieta immagine.Visto che mi servono sempre le
stesse,
immagine tiff
bianco nero
risoluzione 150
E' possibile impostarle direttamente dallo script evitando cosi di far
aprire la finestra dello scanner ?
grazie

cut
Ciao ,
Grazie sei molto gentile,
Abuso della tua cortesi per chiederti 2 cose,
Purtroppo, mi sa che con A97 ci sia poco da fare, anzi controllando bene 
credo proprio che se vuoi usare questo strumento dovrai passare ad Axp.
Toglimi una curiosità: se apri la maschera "Acquisisci" in struttura ti da 
qualche messaggio di errore? Ci sono i due controlli WIA in alto a sx? O 
sono in bianco?
Ciao, Carlo 


CIao ,
Si i due controlli sono in bianco , comunque posso aprire la maschera
in struttura e effettuare delle modifiche.
In ogni caso a parte gli errori che ti dicevo, la scansione viene
effettuata e il programma funziona.
Sai se è possibile


 Ciao, Carlo
CIao ,
Si i due controlli sono in bianco , comunque posso aprire la maschera
in struttura e effettuare delle modifiche.
In ogni caso a parte gli errori che ti dicevo, la scansione viene
effettuata e il programma funziona.
---------------------
Sono molto meravigliato di questo!
Sai se è possibile
 "Quando clicco su acquisisci si apre la finestra dello scanner per
impostare le proprieta immagine.Visto che mi servono sempre le
stesse, "
immagine tiff
bianco nero
risoluzione 150
------------------
Se segui uno dei precedenti post sull'argomento potrai scaricare tutto l'sdk 
dei WIA e cercare una soluzione da solo.
In questi giorni, almeno fino a giovedì, sarò impegnatissimo.
Ciao, Carlo