MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Salvar formulário ativo como imagem

    avatar
    MMS
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 12/04/2011

    [Resolvido]Salvar formulário ativo como imagem Empty [Resolvido]Salvar formulário ativo como imagem

    Mensagem  MMS em 6/1/2020, 23:16

    Boa noite! Alguém sabe como faço para salvar um formulário ativo em imagem? Alguma idéia de como posso fazer isso?
    Seria algo como automatizar um print screen e colar numa pasta especifica.
    avatar
    renpv
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 300
    Registrado : 12/01/2015

    [Resolvido]Salvar formulário ativo como imagem Empty Re: [Resolvido]Salvar formulário ativo como imagem

    Mensagem  renpv em 6/1/2020, 23:33

    Amigo, eu não conheço essa funcionalidade mas você já considerou exportar um PDF?
    avatar
    MMS
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 12/04/2011

    [Resolvido]Salvar formulário ativo como imagem Empty Salvar formulário ativo como imagem

    Mensagem  MMS em 6/1/2020, 23:46

    Pois é , pdf é simples e bem mais fácil, ocorre que uso várias imagens com fundo transparente que no formulário fica perfeito, porém quando exporto para PDF o fundo fica branco e desconfigura toda a imagem gerada. Com print fica perfeito ou salvar em jpg, algo assim.
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4523
    Registrado : 20/04/2011

    [Resolvido]Salvar formulário ativo como imagem Empty Re: [Resolvido]Salvar formulário ativo como imagem

    Mensagem  Silvio em 7/1/2020, 10:25

    Boas....

    Acho que algo parecido com isso em um botão de comando.

    Me.Filter = "[Product ID]=" & Me![txtProductID]
    Me.FilterOn = True
    DoCmd.SelectObject acForm, Screen.ActiveForm.Name, False
    DoCmd.PrintOut
    Me.FilterOn = False


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Salvar formulário ativo como imagem Empty Re: [Resolvido]Salvar formulário ativo como imagem

    Mensagem  ahteixeira em 7/1/2020, 19:27

    Olá a todos

    Marcelo, já tentou a "Busca" aqui do fórum, veja como fazer:
    https://www.maximoaccess.com/t1115-busca-no-forum-search

    Não será isto:
    https://www.maximoaccess.com/t33535-resolvidoprint-do-form-e-enviar-por-email

    Abraço a todos

    avatar
    MMS
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 12/04/2011

    [Resolvido]Salvar formulário ativo como imagem Empty Salvar formulário ativo como imagem

    Mensagem  MMS em 8/1/2020, 19:07

    Boa tarde a todos e obrigado pela ajuda. utilizei o link do ahteixeira e cheguei ao código do JPaulo que é esse:

    Código:
    AltPrintScreen
       Pause (2)
       SavePicture PastePicture, savePath
       'insere na variavel publica, o caminha da imagem salva
       strForm = savePath


    Utilizei no meu form mais ou menos assim:

    Código:
    'monta nome e número do arquivo
    strArquivo = "\CHECKLIST-" & Me.NumOs & ".jpg"

    'monta o local a ser salvo
    '
    DoCmd.Hourglass True
    Me.Repaint
    SalvaImagem (CurrentProject.path & "\PRINT\" & strArquivo)
    DoCmd.Hourglass False

    Depois pego o arquivo e automatizo e envio por email. Está funcionando, quero melhorar ou reduzindo o tamanho da imagem, uma vez que jpg fica bem maior ou pegando essa imagem e salvando em pdf (aqui só esclarecendo que gerar direto para pdf tentei , mas todas as imagens que não tem fundo, vão com fundo branco e descaracteriza tudo que está na tela, tentei tanto gerando primeiro relatório como imprimindo o form)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Salvar formulário ativo como imagem Empty Re: [Resolvido]Salvar formulário ativo como imagem

    Mensagem  ahteixeira em 9/1/2020, 00:34

    Olá, que bom que resolveu.

    Quanto ao "fundo branco" pode montar pequeno exemplo para se testar.
    Assim fica mais fácil para se poder ajudar ou verificar alternativa ao pretendido.

    Abraço a todos
    avatar
    MMS
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 12/04/2011

    [Resolvido]Salvar formulário ativo como imagem Empty Salvar formulário ativo como imagem

    Mensagem  MMS em 9/1/2020, 13:09

    Bom dia!
    Segue anexo como exemplo.
    Veja que se abrir o formulário as imagens de "X" aparecerem com fundo transparente, no relatório, se visualizar a impressão, aparecem com fundo branco.
    Se exportar para Pdf o fundo fica branco.
    Anexos
    [Resolvido]Salvar formulário ativo como imagem Attachmentteste.zip
    segue arquivo
    Você não tem permissão para fazer download dos arquivos anexados.
    (1 Mb) Baixado 7 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Salvar formulário ativo como imagem Empty Re: [Resolvido]Salvar formulário ativo como imagem

    Mensagem  ahteixeira em 9/1/2020, 15:15

    Olá a todos

    Marcelo, uma forma simples de obter o pretendido é trocar os campos imagem por uma caixa de texto, veja:
    [Resolvido]Salvar formulário ativo como imagem 0102

    Veja o resultado:
    [Resolvido]Salvar formulário ativo como imagem 115

    Abraço
    avatar
    MMS
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 12/04/2011

    [Resolvido]Salvar formulário ativo como imagem Empty Re: [Resolvido]Salvar formulário ativo como imagem

    Mensagem  MMS em 9/1/2020, 17:33

    Ótima de dica Ahteixeira, ajudará bastante. Obrigado!
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Salvar formulário ativo como imagem Empty Re: [Resolvido]Salvar formulário ativo como imagem

    Mensagem  ahteixeira em 21/1/2020, 14:38

    Olá a todos

    Marcelo, como ficou a situação?

    Não se esqueça de dar o tópico como Resolvido, veja como fazer:
    https://www.maximoaccess.com/t860-resolucao-de-topicos

    Abraço
    avatar
    MMS
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 12/04/2011

    [Resolvido]Salvar formulário ativo como imagem Empty Re: [Resolvido]Salvar formulário ativo como imagem

    Mensagem  MMS em 21/1/2020, 14:59

    Bom ida! Utilizei a dica para trocar as imagens por caixa de texto, foi trabalhoso mais deu certo. Grato pela dica.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Salvar formulário ativo como imagem Empty Re: [Resolvido]Salvar formulário ativo como imagem

    Mensagem  ahteixeira em 21/1/2020, 15:03

    cheers

    Conteúdo patrocinado

    [Resolvido]Salvar formulário ativo como imagem Empty Re: [Resolvido]Salvar formulário ativo como imagem

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/1/2020, 12:54