MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    Atualizar imagem ao salvar PDF

    avatar
    juliobertoso
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Atualizar imagem ao salvar PDF Empty Atualizar imagem ao salvar PDF

    Mensagem  juliobertoso 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 : Respeito às Regras 100%

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

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

    Mensagem  FranklinJSP 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 : Respeito às Regras 100%

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

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

    Mensagem  juliobertoso 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 : Respeito às Regras 100%

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

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

    Mensagem  juliobertoso 30/1/2020, 19:01

    Alguém da uma maozinha?

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/7/2024, 06:40