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


    [Resolvido]Gerar PDF automáticamente

    DEISON
    DEISON
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 04/07/2014

    [Resolvido]Gerar PDF automáticamente Empty [Resolvido]Gerar PDF automáticamente

    Mensagem  DEISON 19/3/2015, 15:44

    Boa Tarde

    Qual seria o código usado para Gerar um arquivo em PDF de um pedido de venda sem precisar apertar nenhum botão.
    Tipo assim.
    ao perder o foco do ultimo campo ele gerasse um PDF do pedido de venda com o CodigoVenda, e ele salvar sem eu precisa colocar o caminho, já tenha um caminha específico no código.

    Tem jeito de fazer isto?
    avatar
    Convidado
    Convidado


    [Resolvido]Gerar PDF automáticamente Empty Re: [Resolvido]Gerar PDF automáticamente

    Mensagem  Convidado 19/3/2015, 15:56

    Boa tarde,

    Tem sim.
    já tem algum relatório criado para o código venda?

    Na propriedade após atualizar do seu campo introduza seguinte código:

    Dim strArquivo As String
    Dim strLocal As String
    strArquivo = "Nome que quer dar ao seu PDF " & ".pdf"
    strLocal = "C:" & "\" & strArquivo 'Caminho onde irá guardar seu PDF
    DoCmd.OutputTo acOutputReport, "Nome do seu relatório associado ao codigo venda", acFormatPDF, strLocal, False
    MsgBox "Arquivo criado com sucesso.", vbInformation, "Envio Automático"


    Abraço...  Cool
    avatar
    Convidado
    Convidado


    [Resolvido]Gerar PDF automáticamente Empty Re: [Resolvido]Gerar PDF automáticamente

    Mensagem  Convidado 19/3/2015, 16:24

    Boas,

    Testado a partir da sua BD e aprovado. Smile
    Acho que o relatório que eu selecionei é o correto, caso não seja é só trocar pelo correto.
    ----------------------------------------------------------------------------------------------
    Dim strArquivo As String
    Dim strLocal As String
    strArquivo = Me.CodVenda & " - " & Me.txt_cliente & ".pdf"
    strLocal = "C:" & "\" & strArquivo 'Caminho onde irá guardar seu PDF
    DoCmd.OutputTo acOutputReport, "REL PEDIDO DE VENDA", acFormatPDF, strLocal, False
    MsgBox "Arquivo criado com sucesso.", vbInformation, "Envio Automático"
    -------------------------------------------------------------------------------------------------
    Abraço... Cool
    DEISON
    DEISON
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 04/07/2014

    [Resolvido]Gerar PDF automáticamente Empty Gerar PDF automáticamente

    Mensagem  DEISON 19/3/2015, 16:50

    Valeu muito obrigado

    Deu certinho.
    avatar
    Convidado
    Convidado


    [Resolvido]Gerar PDF automáticamente Empty Re: [Resolvido]Gerar PDF automáticamente

    Mensagem  Convidado 19/3/2015, 16:52

    Ainda bem que pude ajudar...
    Obrigado pelo retorno, o Forum agradece...

    Abraço.. Cool

    Conteúdo patrocinado


    [Resolvido]Gerar PDF automáticamente Empty Re: [Resolvido]Gerar PDF automáticamente

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/4/2024, 18:51