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

    Atualizar imagem ao salvar PDF

    avatar
    juliobertoso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 97
    Registrado : 23/10/2017

    Atualizar imagem ao salvar PDF Empty Atualizar imagem ao salvar PDF

    Mensagem  juliobertoso em 27/1/2020, 13:36

    Bom dia!

    venho solicitar novamente a ajuda de vcs

    seguinte, tenho um sistema de vendas que ao gerar uma cotação o sistema verifica o usuário que fez a cotação e busca na rede a imagem em PNG que representa sua assinatura e mostra no relatório, até aqui tudo certo. O problema esta quando eu gero diretamente em PDF, pois  sistema sava o arquivo mas não verifica qual a assinatura referente ao o usuário que fez a cotação e mostra apenas a primeira assinatura cadastrada no sistema.

    segue abaixo o botão que uso para exportar a cotação com a imagem da assinatura

    Código:
    Private Sub btoEnviarCotacao_Click()

    On Error GoTo PROC_ERR

    'Aqui verifica a assinatura do usuário
    [Report_tblInformacoes sub-relatório1].imgPDF_cotacao.Picture = Form_frmEndSistema.EnderecoRelatorio & "\Assinaturas\" & Form_frmCotacao.UsuarioCotacao & ".png"
    [Report_tblInformacoes sub-relatório1].Requery




    DoCmd.Close acForm, "RelatorioCotacao", acSaveYes


    'Salva Relatório na pasta abaixo
    DoCmd.OutputTo acOutputReport, "RelatorioCotacao", acFormatPDF, Form_frmEndSistema.EnderecoRelatorio & "\Cotação\" & "Cotação - " & Form_frmCotacao.NumeroCotacao & ".pdf", False

    Shell "C:\WINDOWS\explorer.exe """ & Form_frmEndSistema.EnderecoRelatorio & "\Cotação\", vbNormalFocus

    PROC_EXIT:
        Exit Sub
        
    PROC_ERR:
        DoCmd.Hourglass False
            MsgBox Err.Number & " - " & Err.Description
        Resume PROC_EXIT
    End Sub

    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 343
    Registrado : 25/02/2016

    Atualizar imagem ao salvar PDF Empty Re: Atualizar imagem ao salvar PDF

    Mensagem  FranklinJSP em 28/1/2020, 18:18

    Boa tarde Julio!

    Tenta isto:

    Código:
    Dim Carpeta
    Dim NomeArquivo
    Dim Archivo

    Carpeta = Dir(Me.Ruta, vbDirectory)
       
        If Carpeta = "" Then
          DoCmd.Beep
          MsgBox "¡Nao existe pasta " & Me.Ruta & ", revise! ", vbInformation + vbOKOnly, "Erro"
          Exit Sub
        End If

        NomeArquivo = "XXXXXXX"
       
        Archivo = Me.Ruta & "\Reporte " & "(" & NomeArquivo & ").pdf"
        DoCmd.OutputTo acOutputReport, "Nome do relatório que funciona bem", acFormatPDF, Archivo, True

    Saludos


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    avatar
    juliobertoso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 97
    Registrado : 23/10/2017

    Atualizar imagem ao salvar PDF Empty Re: Atualizar imagem ao salvar PDF

    Mensagem  juliobertoso em 28/1/2020, 21:18

    FranklinJSP,

    desculpa, mas não consegui compreender muito bem, poderia me explicar o seu código?
    avatar
    juliobertoso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 97
    Registrado : 23/10/2017

    Atualizar imagem ao salvar PDF Empty Re: Atualizar imagem ao salvar PDF

    Mensagem  juliobertoso em 30/1/2020, 19:01

    Alguém da uma maozinha?

      Data/hora atual: 2/6/2020, 13:03