[Resolvido]Print do Form e enviar por email

Galera tenho um formulário e queria que na hora que clicasse no botão salvar, o mesmo retirasse o print do formulário e colasse no outlook para envio do email. Grato da atenção e ajuda.

"https://www.maximoaccess.com/t33531-copiar-um-relatorio-em-formato-txt-para-area-de-transferencia"

Basicamente mesma coisa, porem escolha pdf ou xps.

Ola amigos não sei se fui bem claro não estou querendo enviar via email o relatório, estou é querendo capturar a tela do formulário ai sim enviar por email.

Olá a todos,

Kilson, o mais simples era criar um relatório com a mesma informação do form para enviar.

Em foto, fica mais pesado para o envio por email.
No entanto se pretende dessa forma veja link abaixo para fazer a captura e salvar em ficheiro:

social.technet.microsoft.com/wiki/contents/articles/23860.print-screen-to-an-image-using-access-vba.aspx

Para enviar por email, pode ser como o colega exemplificou, se pretende automáticamente não falta exemplos no fórum, será fazer uma "Busca".

Abraço a todos

Assim serve ?

Código:

DoCmd.SendObject acSendForm, "SeuFormulario", acFormatPDF, "", "", "", "teste", "teste"

Ou assim, um pouco mais complexo;

Download

Olá a todos,

Kelson Araujo, como ficou a situação?
Os membros do fórum merecem e agradecem o retorno.

Caso a situação esteja Resolvida não se esqueça de dar o tópico como tal, veja como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Abraço a todos

Boa noite, JPaulo.

Daria pra mandar o exemplo em .mdb (2003)

Obrigado.

Ola

Desculpe de só ver agora o seu pedido;

Em Ms Access 2003:
Download

Boa tarde, JPaulo.

Sem problemas, amigo.

Muito obrigado.

Um exemplo perfeito.

Eu gostaria de saber se tem como em vb passar para jpg o formulário todo, não apenas a parte visível da tela que é o que o Print screen faz(usando a tela toda), como também esse seu exemplo (usando o form em foco.).

Olá a todos,

Grande JPaulo, ficou um excelente exemplo.

Leoni Dias, altere a extensão de .JPG para .BMP na parte do código abaixo e teste:

Código:

'salva a imagem do form
SalvaImagem (CurrentProject.Path & "\MeuForm_" & Format(Now, "ddmmyyyyhhmmss") & ".jpg")

Kelson Araujo, como ficou a situação?
Os membros do fórum merecem e agradecem o retorno.

Caso a situação esteja Resolvida não se esqueça de dar o tópico como tal, veja como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Abraço a todos

Boa noite.

Agora me perdi todo.

Quer dizer que muando a extensão de JPG para BMP será salvo no pc e enviado para o email o formulário completo e não apenas a parte visível na tela?

Entendi não.

Olá, desculpe fiz confusão com a pergunta.

Para isso desconheço, vamos ver se algum colega ajuda, ou amanha analiso melhor o codigo e vejo como ajudar.

Abraço a todos

Olá Leoni Dias,

Veja se é o pretendido.

Abraço

Boa tarde, Ahteixeira.

Obrigado por sua ajuda, mas não bem isso não. Eu queria a transformação do form para JPG, mas o form completo, Mão a tela toda.

No exemplo existem a duas opções, mas em uma o form principal aparece todo porque é pequeno e na outra transforma a tela toda.

O que eu queria é transformar o form principal todo, sem corte da tela em um JPG, assim como o office 2007 (infelizmente não consegui fazer dessa forma do 22007 no 2003) faz com o form quando o transforma em PDF.

Mesmo assim, obrigado novamente.

Olá Leoni Dias,

Acho que só mesmo criando PDF como JPaulo exemplificou.
Será que podria ser um SnaoShot, veja tópico abaixo:
https://www.maximoaccess.com/t29915-criar-ficheiro-snapshot-de-um-relatorio

Pode aplicar a mesma técnica a form.

Abraço

Boa noite.

Infelizmente tentei de todas as formas mas o acOutputForm e acFormatSNP não está funcionando, mesmo com o Snapviewer instalado.

   DoCmd.OutputTo acOutputForm, "frm_teste", _
   acFormatSNP, Application.CurrentProject.Path & "\Teste.snp", True

Olá Leoni Dias,

Tive oportunidade de testar no 2003 e 2010 e não funciona sendo um Form.
Estranho, pois na documentação diz que permite.
msdn.microsoft.com/en-us/library/office/aa220433(v=office.11).aspx

Vamos ver se mais algum colega pode ajudar.
Abrçao

1º Abra o seu formulario em modo de estrutura.
2º Vá em cima do lado esquerdo a "File" ou "Ficheiro"
3º Save Object As
4º Escolha "Report" ou "Relatório"

Desta forma fica com um relatório igual ao seu formulario, pode até deletar os botões se existirem.
Quando necessitar de exportar para Snapshot faça-o para o relatório e não formulário.

Mil maneiras de fazer nestum.

Bom dia a todos os amigos que sempre ajudam muito.

Eu acredito que vou ter que apelar para uma impressora pdf  virtual de terceiros.
Já fiz os testes e funciona bem melhor do que eu esperava.

O problema, JPaulo, é que meus forms se baseiam em cconsultas que são realizadas colocando dados no próprio form, na hora, através de controles de texto, Listbox e outros. O relatório não funciona dessa forma.

Tentei no access 2007... a conversão para o pdf sai perfeita, porém são muitos os problemas com os forms que são baseados em consulta e quando eu faço o Applifilter de um registro, não consigo fazer mais (mesmo colocando a origem do form em tabela e não em consulta). Acredito que como depois da consulta de um registro específico o filtro, como tem apenas esse registro, não consiga procurar outro.

Mas valeu. Entre mortos e feridos, salvaram-se todos. São muitas as mudanças que eu teria que fazer para apenas para não usar uma impressora virtual, é preferível usar o software externo.

Novamente, obrigado.

Ps. Coisas do ruindows: diz que a conversão do form para o snap funciona e só funciona para relatório.

Boa noite a todos.

Problemas resolvidos e de uma forma que eu não esperava depois da decepção com o access 2007.

Instalei o runtime do access 2010 e reconheceu o mdb do 2003 sem nenhuma restrição ou problemas maiores,isso tudo sem eu precisar transformar no formato do 2010.

Obrigado a todos.

Olá Leoni Dias, que bom que resolveu.

O Access 2003 já não tem suporte do fabricante, será uma otima oportunidade passar a usar numa versão mais recente.

Obrigado pelo retorno.

Abraço a todos

J Paulo, vi o exemplo postado por vc aqui, o qual me ajudou a quase chegar no objetivo que estou querendo.

Amigo, tenho um formulário chamado WEBCAM, o qual utilizo num projeto em access para capturar a foto do cliente e vínculo dessa foto no seu respectivo cadastro (formulário de clientes).

Estou tendo problemas em relação ao dimensionamento da imagem capturada (queria que a imagem capturada fosse exatamente nas dimensões do SUBFORMULÁRIO nomeado de PICWEBCAM (que tem como objeto de origem outro formulário chamado PIC) - Vc deve conhecer com certeza esta forma de captura pela webcam! O problema é que minha imagem capturada não sai nas dimensões desejadas.

Pensei então numa maneira de fazer um PRINT SCREEN do PICWEBCAM, mas até então não estava conseguindo, até encontrar seu exemplo aqui postado.

No entanto, seu exemplo está dando o print screen do meu formulário inteiro, ou seja, do formulário WEBCAM, e eu queria que ele desse o print screen apenas de uma parte desse formulário, ou seja: no SUBFORMULÁRIO PICWEBCAM.

Veja a imagem que posto aqui do meu resultado e vc entenderá. Portanto, gostaria que vc me dissesse onde eu modifico (acredito ser no módulo) e qual modificação eu devo fazer no código.




fico muito agradecido pelo apoio!

Nas propriedades do seu controle de imagem no formulario, se você for á aba formato e alterar para "Estender" = "Stretch" acredito que a foto ficará show.

Pois é. Já tentei estender, cortar, tentei tb o modo zoom (que é padrão) mas só dá certo com a combinação CORTAR + definir a resolução da imagem gerada pela câmera para 160 x 120 (só que a imagem gerada não preenche toda área do SUBFORMULÁRIO PICWEBCAM e o resultado da imagem capturada é uma foto levemente desfocada, muito pouco mesmo).

O problema com isso é que eu teria que diminuir o tamanho do SUBFORMULÁRIO PICWEBCAM, o qual defini daquele tamanho justamente para ficar melhor de enxergar e fazer o enquadramento na hora da captura. OBS: o SUBFORMULÁRIO PICWEBCAM tem o dobro das dimensões da foto do cliente no FORMULÁRIO DE CLIENTES.

Será que tem uma forma de fazer a imagem gerada pela webcam ocupar exatamente toda a área do SUBFORMULÁRIO PICWEBCAM sem perder as proporções (sem haver distorção da foto)?

Vou limpar os registros do meu BD postar aqui. Se vc puder dar uma olhada e sugerir algo, agradeço de montão. Postarei 2 versões:

1: captura a foto da webcam

2: faz o print screen do formulário

o formulário de clientes que relato  aqui é denominado  CADASTRO DE MILITAR no BD.

E se for abrir normalmente o BD, escolhe o usuário "Orlando" (que é único na verdade) e a senha é 123456

Abç!

Prezado JPaulo,

Cheguei na solução:

1) tive que deixar ativo o seguinte código: Call SendMessage(hCap, WM_CAP_SET_SCALE, True, 0) 'mantém o subformulário PICWEBCAM totalmente preenchido, independente da resolução da webcam;

2) redimensionei SUBFORMULÁRIO PICWEBCAM para receber de forma correta a imagem gerada pela webcam (no caso, tive que diminuir a altura dele. No final, ficou 6 cm de largura por 4,5 cm de altura (mais ou menos proporcional à resolução de 320 X 240);

3) deixei, como vc sugeriu, a propriedade "MODO TAMANHO" da picturebox que recebe a foto no formulário de clientes como CORTAR;

4) Ficou excelente!!! Agora só falta incluir uma rotina para que, após clicar no botão que ativa a câmera, mudar a resolução para 160x120, pois ela sempre inicia em 640x480.

Poderia me dizer onde insiro essa parte do código?

Seria em alguma parte deste código?

hCap = capCreateCaptureWindow("Take a Camera Shot", WS_CHILD Or WS_VISIBLE, 0, 0, 226, 170, PicWebCam.Form.hwnd, 0)