[Resolvido]Salvar formulário ativo como imagem

MMS 6/1/2020, 23:16

MMS: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 112
Registrado : 12/04/2011

Mensagem nº1

[Resolvido]Salvar formulário ativo como imagem

Mensagem MMS 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.

renpv 6/1/2020, 23:33

renpv

renpv: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 323
Registrado : 12/01/2015

Mensagem nº2

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

Mensagem renpv 6/1/2020, 23:33

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

MMS 6/1/2020, 23:46

MMS

MMS: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 112
Registrado : 12/04/2011

Mensagem nº3

Salvar formulário ativo como imagem

Mensagem MMS 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** 7/1/2020, 10:25

Silvio

Silvio: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 5120
Registrado : 20/04/2011

Mensagem nº4

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

Mensagem Silvio 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."

**Alvaro Teixeira** 7/1/2020, 19:27

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7995
Registrado : 15/03/2013

Mensagem nº5

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

Mensagem Alvaro Teixeira 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

MMS 8/1/2020, 19:07

MMS

MMS: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 112
Registrado : 12/04/2011

Mensagem nº6

Salvar formulário ativo como imagem

Mensagem MMS 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)

**Alvaro Teixeira** 9/1/2020, 00:34

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7995
Registrado : 15/03/2013

Mensagem nº7

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

Mensagem Alvaro Teixeira 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

MMS 9/1/2020, 13:09

MMS

MMS: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 112
Registrado : 12/04/2011

Mensagem nº8

Salvar formulário ativo como imagem

Mensagem MMS 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

teste.zip: segue arquivo; Você não tem permissão para fazer download dos arquivos anexados.; (1 Mb) Baixado 13 vez(es)

**Alvaro Teixeira** 9/1/2020, 15:15

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7995
Registrado : 15/03/2013

Mensagem nº9

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

Mensagem Alvaro Teixeira 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

MMS 9/1/2020, 17:33

MMS

MMS: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 112
Registrado : 12/04/2011

Mensagem nº10

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

Mensagem MMS 9/1/2020, 17:33

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

**Alvaro Teixeira** 21/1/2020, 14:38

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7995
Registrado : 15/03/2013

Mensagem nº11

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

Mensagem Alvaro Teixeira 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