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


    Escanear arquivos de diversas impressoras com método de cancelamento

    CassioFabre
    CassioFabre
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 18/01/2013

    Escanear arquivos de diversas impressoras com método de cancelamento Empty Escanear arquivos de diversas impressoras com método de cancelamento

    Mensagem  CassioFabre 8/5/2017, 17:33

    Boa tarde,

    Como fruto do tópico https://www.maximoaccess.com/t30042-ajuda-com-codigo-para-scanner o arquivo em anexo foi gerado.

    O funcionamento do código é o seguinte:
    -> Clique do botão
    -> criação de uma pasta temporária "temp" na raiz de onde o db está
    -> Seleção do local e nome do arquivo a ser salvo (apenas isso, não é gerado ainda) e salva o caminho e nome do arquivo na variável nomeArquivo.SelectedItems(1)
    -> Seleção do scanner a ser utilizado
    -> Sistema faz o scanner e salva a imagem na pasta "temp" em código sequencial (a primeira imagem escaneada é a numero 1, a segunda o 2, etc) ao mesmo tempo que salva o caminho na tblImprimir
    -> Se o usuário cancelar o processo tudo é feita uma pergunta na msgbox podendo resultar em cancelamento do processo todo ou apenas da foto atual.
    -> A cada escaneamento completo o sistema pergunta se deseja escanear outra imagem e dá a opção de escolher outra impressora ou a mesma.
    -> Após todas as imagens serem escaneadas, o sistema abre o relatório rptImprimir (que está acoplado à tblImprimir) em modo oculto e o imprime em pdf no caminho da variável nomeArquivo.SelectedItems(1)
    -> Depois disso o sistema exclui todos os arquivos e a pasta temporária.
    -> Arquivo salvo com nome e no local selecionados.

    Espero que seja de grande ajuda para todos.

    Abraço.
    Anexos
    Escanear arquivos de diversas impressoras com método de cancelamento Attachmentscanner com cancel.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (198 Kb) Baixado 170 vez(es)

      Data/hora atual: 22/11/2024, 09:09