MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Rotina para scaner, alguém tem uma funcional???

    Pablo Neruda
    Pablo Neruda
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 344
    Registrado : 17/09/2010

    [Resolvido]Rotina para scaner, alguém tem uma funcional??? Empty [Resolvido]Rotina para scaner, alguém tem uma funcional???

    Mensagem  Pablo Neruda 28/10/2010, 20:47

    Boa tarde amigos... Alguém teria uma rotina funcional para se scanear documentos?!?!?
    avatar
    Convidad
    Convidado


    [Resolvido]Rotina para scaner, alguém tem uma funcional??? Empty Re: [Resolvido]Rotina para scaner, alguém tem uma funcional???

    Mensagem  Convidad 28/10/2010, 21:00

    veja se serve;

    http://msdn.microsoft.com/en-us/library/ms630826

    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Rotina para scaner, alguém tem uma funcional??? Empty Re: [Resolvido]Rotina para scaner, alguém tem uma funcional???

    Mensagem  JPaulo 28/10/2010, 21:09

    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



    .................................................................................
    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

    [Resolvido]Rotina para scaner, alguém tem uma funcional??? Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Rotina para scaner, alguém tem uma funcional??? Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Rotina para scaner, alguém tem uma funcional??? Folder_announce_new Instruções SQL como utilizar...
    avatar
    Convidad
    Convidado


    [Resolvido]Rotina para scaner, alguém tem uma funcional??? Empty Re: [Resolvido]Rotina para scaner, alguém tem uma funcional???

    Mensagem  Convidad 28/10/2010, 21:14

    aqui tambem

    http://social.msdn.microsoft.com/Forums/en-US/accessdev/thread/6ec0cc33-f097-4e93-9eb5-4f0bb12b05a2
    Pablo Neruda
    Pablo Neruda
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 344
    Registrado : 17/09/2010

    [Resolvido]Rotina para scaner, alguém tem uma funcional??? Empty Re: [Resolvido]Rotina para scaner, alguém tem uma funcional???

    Mensagem  Pablo Neruda 17/12/2010, 12:10

    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...
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Rotina para scaner, alguém tem uma funcional??? Empty Re: [Resolvido]Rotina para scaner, alguém tem uma funcional???

    Mensagem  JPaulo 17/12/2010, 14:09

    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


    .................................................................................
    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

    [Resolvido]Rotina para scaner, alguém tem uma funcional??? Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Rotina para scaner, alguém tem uma funcional??? Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Rotina para scaner, alguém tem uma funcional??? Folder_announce_new Instruções SQL como utilizar...
    Pablo Neruda
    Pablo Neruda
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 344
    Registrado : 17/09/2010

    [Resolvido]Rotina para scaner, alguém tem uma funcional??? Empty Re: [Resolvido]Rotina para scaner, alguém tem uma funcional???

    Mensagem  Pablo Neruda 17/12/2010, 14:36

    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

    Conteúdo patrocinado


    [Resolvido]Rotina para scaner, alguém tem uma funcional??? Empty Re: [Resolvido]Rotina para scaner, alguém tem uma funcional???

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 01:30