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

    Copiar a imagem de um Relatoio

    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 382
    Registrado : 05/03/2017

    Copiar a imagem de um Relatoio  Empty Copiar a imagem de um Relatoio

    Mensagem  fazerbem em 20/5/2019, 17:52

    Ola,

    Uso este comando DoCmd.OpenReport "rel_Recibo_Venda", acViewPreview, para mostrar um relatorio.

    Eu precisaria saber se é possivel copiar apos o Relatorio estar aberto, a imagem do mesmo, tudo atraves de VBA e com isso eu poder mandar uma imagem pelo ZAP. Desta forma eu nao precisaria usar copiar e colar manulamente ja estando com o zap do contato aberto.

    Usaria tal recurso aqui:

    '****************************************************************************
    ' Em Destaque

    'CreateObject("Wscript.shell").SendKeys "^v", True
    'CreateObject("Wscript.shell").SendKeys "{ENTER}", True 'enter
    '****************************************************************************

    O Codigo que uso esta abaixo

    Código:
    Private Sub Imprimir_Click()
    If IsNull(Me.txtidVenda) Then
    Me.Lista0.BackColor = &HFFFF&
    MsgBox "Dê 2 Clicks na Caixa Listagem Inferior esquerda e selecione o Recibo."
    Exit Sub
    End If

    If MsgBox("Deseja Enviar pelo WhatsApp ?", vbYesNo + vbInformation, "Finalizando") = vbYes Then

        Dim Texto, Texto1, Texto2, Texto3, Zap
        Dim Linha As Integer
        Linha = Me.lista.ListIndex + 1

    Texto = "Conforme solicitado, segue seu recibo de compra da Suplementos FazerBem "
    Texto1 = "Atenciosamente, André Luiz. "
    Texto2 = "Instagran: Suplementos_FazerBem - "
    Zap = Me.lista.Column(9, Linha)

    DoCmd.OpenReport "rel_Recibo_Venda_Pesquisa", acViewPreview
     
    Zap = Replace(Replace(Replace(Replace(Zap, " ", ""), "-", ""), "(", ""), ")", "")
    FollowHyperlink "https://api.whatsapp.com/send?l=pt_br&phone=55" & Zap & "&text=" & Texto

    Sleep (5000) 'aguarda 15s carregar
    CreateObject("Wscript.shell").SendKeys "{TAB}", True
    CreateObject("Wscript.shell").SendKeys "{TAB}", True
    CreateObject("Wscript.shell").SendKeys "{ENTER}", True 'enter

    Sleep (20000) '15 segundos pra carregar
    CreateObject("Wscript.shell").SendKeys "{ENTER}", True 'enter
    CreateObject("Wscript.shell").SendKeys "{ENTER}", True 'enter

    CreateObject("Wscript.shell").SendKeys Texto1, True
    CreateObject("Wscript.shell").SendKeys "{ENTER}", True 'enter
    CreateObject("Wscript.shell").SendKeys Texto2, True
    CreateObject("Wscript.shell").SendKeys "{ENTER}", True 'enter

    '****************************************************************************
    ' Em Destaque

    'CreateObject("Wscript.shell").SendKeys "^v", True
    'CreateObject("Wscript.shell").SendKeys "{ENTER}", True 'enter
    '****************************************************************************

    End If
    DoCmd.OpenReport "rel_Recibo_Venda_Pesquisa", acViewPreview
    End Sub

    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 382
    Registrado : 05/03/2017

    Copiar a imagem de um Relatoio  Empty Re: Copiar a imagem de um Relatoio

    Mensagem  fazerbem em 20/5/2019, 18:12

    Talvez quem saiba precise instalar ainda alguma referencia no VBA que possa ter essa funcao ?

      Data/hora atual: 28/9/2020, 11:53