Exportar para imagem (BMP) formulários do Access

Compartilho com todos uma forma de exportar para imagem (BMP) qualquer formulário de seu sistema.

No arquivo exemplo, há o módulo ModExportacao. Nesse módulo há as chamadas as APIs do Windows bem como a Sub ExportaFormParaImagem
que fará a exportação do formulário para imagem.

Fucionamento:

Copie para seu projeto o módulo ModExportacao
Após isso já poderá usar a  sub ExportaFormParaImagem.

A Sub ExportaFormParaImagem pede dois parâmetros. O primeiro é o formulário a ser exportado e o segundo é o caminho completo onde será salvo
a imagem gerada. Nesse caminho, poderá definir o nome do arquivo. Tanto caminho com nome do arquivo podem ser qualquer um de sua escolha.

Exemplos:

Exemplo 1.
Vamos exportar para a mesma pasta onde está nosso projeto o formulário  CadPessoa, estando nele mesmo, ao clique de um botão:

Código:

Call ExportaFormParaImagem(Me, CurrentProject.path & "\CadPessoas.bmp")

Note que usei CurrentProject.path para obter o local onde está o nosso projeto e concatenei com o nome do formulário, adicionando a extensão BMP (.bmp).
O resultado será uma imagem chamada CadPessoas.bmp na pasta do projeto.

Vamos agora exportar o formulário Frm1 para a área de trabalho. O nome da imagem gerada será Formas Geométricas:

Código:

Dim f As New Form_Frm1
Dim strLocalSalvar As String
    
strLocalSalvar = "C:\Users\" & Environ("UserName") & "\Desktop\Formas Geométricas.bmp"
f.Visible = True
f.Repaint

Call ExportaFormParaImagem(f, strLocalSalvar)
Set f = Nothing

Obtemos o caminho da área de trabalho do usuário atual, usando a função Environ do VBA e passamos para a variável strLocalSalvar, já definindo o nome do arquivo exportado.

Usem à vontade, somente peço que mantenham os créditos e cabeçalho do método e do módulo.

Baixe aqui o arquivo exemplo dos códigos acima.

Olá Marcelo David,

Parabéns e obrigado pela partilha.
O fórum agradece.

Caro Bruno, atento por favor ao item 13 da regras deste fórum;

REGRAS DO FÓRUM

1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE!   Só letras Maiúsculas, na Internet é o mesmo que gritar!
13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.
14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks") excepto DropBox, Google Drive ou do próprio fórum.
15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.