MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Salvar formulário ativo como imagem

    avatar
    MMS
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 111
    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 : 323
    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 : 111
    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 : 4637
    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 : 6957
    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 : 111
    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 : 6957
    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 : 111
    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 9 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6957
    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 : 111
    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 : 6957
    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 : 111
    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 : 6957
    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

      Data/hora atual: 3/12/2020, 23:05