Escanear arquivos de diversas impressoras com método de cancelamento

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.