Exportar Formulário como Imagem PNG ou JPG e definir Resolução.

Olá a todos,

Desde já, muito agradeço a partilha do exemplo em questão. pelo Sr. Marcelo David.

Tendo por base o referido exemplo:
https://www.maximoaccess.com/t42907-exportar-para-imagem-bmp-formularios-do-access?ns=9tZFr3JfRifbz%2BhO9pSEag%3D%3D#290003

É possível exportar a imagem como ".PNG" ou ".JPG" e aumentar a sua Resolução?

Mais uma vez, o meu muito obrigado.

Bruno Gordino

.

Olá Bruno,

Veja se ajuda:
https://www.maximoaccess.com/t33535-resolvidoprint-do-form-e-enviar-por-email

Abraço

Olá Sr. Alvaro, como tem passado.

Jã não trocávamos mensagens há algum tempo.

No código que me passou não consigo encontrar qualquer referência à Resolução, ou estou a ver mal?

Muito obrigado pela atenção dispensada.

Cumprimentos

Bruno Gordino

Olá Bruno,

Para o chamado "resize" apenas conheço desta forma:

Código:

https://www.devhut.net/vba-wia-resize-scale-an-image/

Abraço

Viva Sr. Alvaro,

Parece-me que o código do site

Código:

 https://www.devhut.net/vba-wia-resize-scale-an-image/

, serve somente para redimensionar imagens já existentes numa pasta.

O que eu pretendo é poder manipular a Resolução da imagem antes de a exportar, utilizando o exemplo do caríssimo Marcelo: https://www.maximoaccess.com/t42907-exportar-para-imagem-bmp-formularios-do-access?ns=9tZFr3JfRifbz%2BhO9pSEag%3D%3D#290003 ,

No entanto tentei e coloquei num modulo geral, o código da página que me passou:

Código:

https://www.devhut.net/vba-wia-resize-scale-an-image/

Substitui o codigo do exemplo do amigo Marcelo:

Código:

Call ExportaFormParaImagem(f, strLocalSalvar)

Por este, do site que me indicou, mas dá erro no argumento "f":

Código:

Call WIA_ResizeImage(f, strLocalSalvar, 800, 600, True, True)

Consegue ajudar?

Bruno Gordino

Olá Bruno,

Na minha opinião deve exportar como estava.
Depois da exportação fazer a conversão, aparentemente por uma rápida leitura do código da função você é que colocou o parametro "f" que supostamente deve ser o ficheiro origem a ser convertido para redimensionar.

Boa sorte.
Abraço

Viva Sr. Alvaro

Preciso mesmo que, no exemplo postado pelo amigo Marcelo, a imagem seja exportada com mais Resolução.  

Se a redimensionar, numa pasta, após a exportação vai perder ainda mais qualidade.

Vou aguardar por uma  possível nova ajuda a a este tópico.

Qualquer das maneiras, muito obrigado Sr. Alvaro pela sua atenção.

Cumprimentos

Bruno Gordino

Olá Bruno Gordino,

Veja este exemplo antigo que encontrei do grande "Jefferson Jimenez" que creio que faz o que pretende (está 32 bits).
Terá que ajustar para 64 bits se for o caso e depois converter de BMP para PNG ou JPEG

Abraço

Bom dia Sr. Alvaro

Acabei de testar o exemplo, adaptei para 64x (Ptrsafe), mas acho que por ter o Win11 dá erro aqui:

Código:

OleCreatePictureIndirect Pic, IID_IDispatch, 1, IPic ' Create the picture object

Tenho duvidas que este exemplo se adeque ao Win11, pois cada vez que se chama o PrintSreen, abre uma janela fosca para se escolher algumas opções de captura.

Obrigado na mesma Sr. Alvaro.

Bruno Gordino

Olá Bruno Gordino,

Se poder partilhar a versão 64 bits, o fórum agradece

Relativamente à situação de abrir o programa de captura, pode desligar.
Vá às Definições -> Acessibilidade -> Teclado  e desligue, veja:



Abraço

Viva,

Aqui está a versão para 64x, mas a dar erro.

Cumprimentos

Bruno Gordino

Olá Bruno Gordino,

Obrigado pela partilha (64 bits), seria necessário fazer alteração ao código e usar o oleaut32.dll em vez do olepro32.dll .

No entanto encontrei outro código que procurava que faz o que precisa e funciona em ambas as versões.
Segue o link da origem e também o ficheiro de exemplo para ficar aqui no nosso fórum.

access-programmers.co.uk/forums/showthread.php?t=245198


Abraço

Boa tarde, Sr. Álvaro

Acabei de experimentar o exemplo que me passou.

Embora funcione, não tem a mais valia/ particularidade do exemplo facultado pelo colega Sr. Marcelo, que consiste em capturar somente o que se encontra dentro da janela activa, não ficando na imagem a Frame do Formulário, Botão Close, etc.

Ainda tenho esperança que o Sr. Marcelo faculte um exemplo melhorado, com a possibilidade de aumentar a resolução, conforme prometido.

Qualquer das maneira muito obrigado por toda a sua interação.

Cumprimentos

Bruno Gordino