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?
    Roberto_1977
    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    Registrado : 01/10/2013

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

    Mensagem  Roberto_1977 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


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui Cool
    Roberto_1977
    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    Registrado : 01/10/2013

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

    Mensagem  Roberto_1977 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


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui 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.
    Roberto_1977
    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    Registrado : 01/10/2013

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

    Mensagem  Roberto_1977 19/3/2015, 16:52

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

    Abraço.. Cool


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui Cool

      Data/hora atual: 17/4/2021, 17:57