Boa tarde amigos... Alguém teria uma rotina funcional para se scanear documentos?!?!?
2 participantes
[Resolvido]Rotina para scaner, alguém tem uma funcional???
Pablo Neruda- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 344
Registrado : 17/09/2010
Convidad- Convidado
veja se serve;
http://msdn.microsoft.com/en-us/library/ms630826
http://msdn.microsoft.com/en-us/library/ms630826
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
Ola,
Eu uso este e está a funcionar;
Public Function Obterscanner()
'habilite a referencia Microsoft Windows Image Acquisition Library v2.0
Dim objDlg As Object
Dim objMgr As Object
Dim i As Integer
Set objDlg = CreateObject("WIA.CommonDialog")
Set objMgr = CreateObject("WIA.DeviceManager")
For i = 1 To objMgr.DeviceInfos.Count
Debug.Print objMgr.DeviceInfos(i).Properties("Name").value & vbCrLf & _
"[ " & objMgr.DeviceInfos(i).DeviceID & " ]"
Next
End Function
http://www.microsoft.com/downloads/en/details.aspx?FamilyID=a332a77a-01b8-4de6-91c2-b7ea32537e29&DisplayLang=en
Nota:
Em Dezembro 2009 não acabei por voltar a responder no tópico abaixo, mas o usuario entrou em contacto via MSN e resolveu.
http://www.expertaccess.com.br/forumnew/forum_posts.asp?TID=21271
Eu uso este e está a funcionar;
Public Function Obterscanner()
'habilite a referencia Microsoft Windows Image Acquisition Library v2.0
Dim objDlg As Object
Dim objMgr As Object
Dim i As Integer
Set objDlg = CreateObject("WIA.CommonDialog")
Set objMgr = CreateObject("WIA.DeviceManager")
For i = 1 To objMgr.DeviceInfos.Count
Debug.Print objMgr.DeviceInfos(i).Properties("Name").value & vbCrLf & _
"[ " & objMgr.DeviceInfos(i).DeviceID & " ]"
Next
End Function
http://www.microsoft.com/downloads/en/details.aspx?FamilyID=a332a77a-01b8-4de6-91c2-b7ea32537e29&DisplayLang=en
Nota:
Em Dezembro 2009 não acabei por voltar a responder no tópico abaixo, mas o usuario entrou em contacto via MSN e resolveu.
http://www.expertaccess.com.br/forumnew/forum_posts.asp?TID=21271
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum...
102 Códigos VBA Gratuitos...
Instruções SQL como utilizar...
Convidad- Convidado
aqui tambem
http://social.msdn.microsoft.com/Forums/en-US/accessdev/thread/6ec0cc33-f097-4e93-9eb5-4f0bb12b05a2
http://social.msdn.microsoft.com/Forums/en-US/accessdev/thread/6ec0cc33-f097-4e93-9eb5-4f0bb12b05a2
Pablo Neruda- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 344
Registrado : 17/09/2010
JP bom dia!
Chegou a hora de utilizar a rotina de scaneamento, porém o que vc me passou esta passando direto pelo código e não faz nada! Tem como me dar um help? A referencia esta habilitana no BD...
Sds
Pablo...
Chegou a hora de utilizar a rotina de scaneamento, porém o que vc me passou esta passando direto pelo código e não faz nada! Tem como me dar um help? A referencia esta habilitana no BD...
Sds
Pablo...
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
Public Function Obterscanner()
'By JPaulo ® Maximo Access
'Dezembro - 2010
Dim strCaminho As String
Dim strScanner As WIA.Device
Dim strItem As WIA.item
Dim strFicheiroImagem As WIA.ImageFile
Dim strJanela As WIA.CommonDialog
strCaminho = ("C:\teste.jpg")
Set filesystemobject = CreateObject("Scripting.FileSystemObject")
If filesystemobject.FileExists(strCaminho) Then
Kill (strCaminho)
End If
Set strJanela = New CommonDialog
Set strFicheiroImagem = strJanela.ShowAcquireImage
If strFicheiroImagem Is Nothing Then
MsgBox "Cancelado...", vbCritical
Else
strFicheiroImagem.SaveFile (strCaminho)
End If
Set strScanner = Nothing
Set strItem = Nothing
End Function
'By JPaulo ® Maximo Access
'Dezembro - 2010
Dim strCaminho As String
Dim strScanner As WIA.Device
Dim strItem As WIA.item
Dim strFicheiroImagem As WIA.ImageFile
Dim strJanela As WIA.CommonDialog
strCaminho = ("C:\teste.jpg")
Set filesystemobject = CreateObject("Scripting.FileSystemObject")
If filesystemobject.FileExists(strCaminho) Then
Kill (strCaminho)
End If
Set strJanela = New CommonDialog
Set strFicheiroImagem = strJanela.ShowAcquireImage
If strFicheiroImagem Is Nothing Then
MsgBox "Cancelado...", vbCritical
Else
strFicheiroImagem.SaveFile (strCaminho)
End If
Set strScanner = Nothing
Set strItem = Nothing
End Function
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum...
102 Códigos VBA Gratuitos...
Instruções SQL como utilizar...
Pablo Neruda- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 344
Registrado : 17/09/2010
Valeu!!!
Já ouviu falar em Romete Scan Server? Ele habilita maquinas a scanearem através da rede. Estou tentando fazer a rotina funcionar através dele, se achar interessante deixo o link do Remote Scan para você depois...
Sds,
Pablo
Já ouviu falar em Romete Scan Server? Ele habilita maquinas a scanearem através da rede. Estou tentando fazer a rotina funcionar através dele, se achar interessante deixo o link do Remote Scan para você depois...
Sds,
Pablo
» [Resolvido]Dificuldade rotina em rotina de backup
» [Resolvido]Rotina para habilitar/desabilitar botões
» [Resolvido]Função para mudar senha e vincular tabelas sem alterar os relacionamentos, alguem sabe?
» [Resolvido]Rotina para verificar se existe Runtime ou Access na máquina
» [Resolvido]Copiar dados de um campo para outro em uma tabela via rotina...500 registros.
» [Resolvido]Rotina para habilitar/desabilitar botões
» [Resolvido]Função para mudar senha e vincular tabelas sem alterar os relacionamentos, alguem sabe?
» [Resolvido]Rotina para verificar se existe Runtime ou Access na máquina
» [Resolvido]Copiar dados de um campo para outro em uma tabela via rotina...500 registros.