[Resolvido]Exportar Relatório no formato de figura (png; jpg etc)

Bom Dia pessoal.
Desenvolvi um programa em access para acompanhar a produção em uma empresa.
Montei um painel em um relatório para mostrar o status hora a hora da produção.
Me pediram ontem para que esse painel fique aparecendo em uma TV tela grande que tem lá.

O que pensei em fazer, é exportar esse relatório para um drive onde essa TV está conectada e colocar esse relatório atualizado pelo access hora a hora como proteção te tela.
Fiz isso, mas o problema é que para configurar como proteção de tela, o relatório precisaria estar em formato de foto e não encontrei forma automatizada de converter esse relatório para foto.

Já fiz buscas no fórum e não encontrei nenhum tópico que me ajudasse.

Alguém tem alguma ideia?

Olá Marcos Castro,

Pesquise no fórum por Snapshot e veja se ajuda.

Abraço

Olá ahteixeira. Obrigado pela atenção.

Tentei baixar aqui o Snapshot Viwer, mas consegui agora uma versão, mas creio que é antiga demais.
Dá erro ao abrir o arquivo em formato .snp.
Vc teria um link com uma versão mais atualizada?

Pensando aqui comigo, teria uma forma de através do VBA, alterar o formato no arquivo? Exemplo: PDF para Png ou jpg ?
Creio que seria também uma solução.

Olá Marcos,

Sim é um formato antigo que a microsoft queria implementar como alternativa ao PDF.
veja mais estes dois:
https://www.maximoaccess.com/t17802-resolvidogerar-imagem-do-relatorio
https://www.maximoaccess.com/t29915-criar-ficheiro-snapshot-de-um-relatorio


Qual a versão do Access que o seu cliente está a usar?

Abraço

Boa tarde ahteixeira.
Meu cliente trabalha com Access para Office 365.
Até agora não consegui fazer o que eles precisam automaticamente.

Tentei até utilizar o comando "PrintScreen". O Access até que copia a tela, mas não consigo ainda salvar o arquivo como figura automaticamente.

Valeu

Olá,

Se pode ser um Print Screen , veja isto:
https://www.maximoaccess.com/t33535-resolvidoprint-do-form-e-enviar-por-email

Abraço

Obrigado pela dica.

Consegui copiar a tela, mas não consegui salvar em um arquivo tipo figura.

Estou ainda tentando aqui, mas não estou conseguindo.

Olá Marcos,

Baixe o exemplo da mensagem nº 14 do link da minha última mensagem e altere o código do botão por este.

Código:

Private Sub Command5_Click()
    'By JPaulo Maximo Access
    Dim Origem As String, Caminho(4) As String, pula As String, xStr As String
    Dim booFull As Boolean
   
    pula = Chr(10) & Chr(13)
    booFull = Me.EcranTotal
   
    'ampulheta de aguardar
    DoCmd.Hourglass True
   
    'envia o foco para uma caixa de texto para poder esconder o botão
        Me.txtFoco.SetFocus
    'esconde o botão
        Me.Command5.Visible = False
        Me.Repaint
   
    'definir caminho e nome ficheiro
    xStr = CurrentProject.Path & "\tmp_" & Format(Now, "ddmmyyyyhhmmss") & ".jpg"
   
    'salva a imagem
    Call SaveClip2Bit(xStr, booFull)
       
    MsgBox "Concluído, verifique em: " & xStr, vbInformation, ""
    'mostra o botão
        Me.Command5.Visible = True
    DoCmd.Hourglass False
End Sub

Abraço

Opa. Vou testar e te falo.

Boa tarde.
ahteixeira muito obrigado pela atenção dada às minhas duvidas.
Funcionou perfeitamente. Já fiz os testes aqui e ficou melhor do que eu imaginava.
Amanhã mesmo já coloco para funcionar no cliente.

Valeu. Grande abraço

Tópico Resolvido. Show

Olá Marcos Castro,

Fico feliz por ter ajudado!
Não se esqueça de dar continuidade aos outros dois tópicos que ainda tem abertos.
Obrigado pelo retorno, o fórum agradece.

Abraço

Sou novo no fórum e no access e não sei se posso mandar uma resposta em um tópico resolvido então todavia me desculpe.

Marcos tenho uma duvida , preciso fazer o mesmo aqui na empresa que trabalho.

como você criou a rotina para exportar o relatório para a Tv ?  se não for pedir muito poderia compartilhar o BD para eu ter uma noção de como fazer ?


Agradeço desde já