MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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 : 381
    Registrado : 05/03/2017

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

    Mensagem  fazerbem em Seg 20 Maio 2019, 12:52 pm

    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 : 381
    Registrado : 05/03/2017

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

    Mensagem  fazerbem em Seg 20 Maio 2019, 1:12 pm

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

      Data/hora atual: Ter 17 Set 2019, 11:13 am