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


4 participantes

    Exportar para imagem (BMP) formulários do Access

    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3936
    Registrado : 21/04/2011

    Exportar para imagem (BMP) formulários do Access Empty Exportar para imagem (BMP) formulários do Access

    Mensagem  Marcelo David 6/8/2024, 17:28

    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.


    .................................................................................
    Exportar para imagem (BMP) formulários do Access Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    Exportar para imagem (BMP) formulários do Access Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    Exportar para imagem (BMP) formulários do Access Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    Exportar para imagem (BMP) formulários do Access Marcel11

    brunogor, Fernando Lucas e crysostomo gostam desta mensagem

    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7970
    Registrado : 15/03/2013

    Exportar para imagem (BMP) formulários do Access Empty Re: Exportar para imagem (BMP) formulários do Access

    Mensagem  Alvaro Teixeira 8/8/2024, 10:14

    Olá Marcelo David,

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

    cheers

    Marcelo David e brunogor gostam desta mensagem

    brunogor
    brunogor
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 282
    Registrado : 24/02/2013

    Exportar para imagem (BMP) formulários do Access Empty Re: Exportar para imagem (BMP) formulários do Access

    Mensagem  brunogor 1/10/2024, 16:58

    Olá Marcelo David,

    Desde já, muito agradeço a sua partilha do exemplo em questão.

    Postei uma dúvida sobre ele aqui:
    https://www.maximoaccess.com/t43004-exportar-formulario-como-imagem-png-ou-jpg-e-definir-tamanho-ou-resolucao

    Mais uma vez, o meu muito obrigado.

    Bruno Gordino


    Última edição por brunogor em 2/10/2024, 18:28, editado 1 vez(es)
    Administrador
    Administrador
    Administrador
    Administrador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 430
    Registrado : 02/11/2009

    Exportar para imagem (BMP) formulários do Access Empty Re: Exportar para imagem (BMP) formulários do Access

    Mensagem  Administrador 2/10/2024, 14:59

    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.


    .................................................................................
    Admin

    Conteúdo patrocinado


    Exportar para imagem (BMP) formulários do Access Empty Re: Exportar para imagem (BMP) formulários do Access

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/10/2024, 22:48