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]Codigo VBA

    avatar
    CPimenta
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 47
    Registrado : 05/01/2017

    [Resolvido]Codigo VBA Empty [Resolvido]Codigo VBA

    Mensagem  CPimenta 24/6/2019, 14:55

    Boa tarde

    Tenho este código inserido num botão de comando, mas o que acontece é quando mando imprimir outro mapa ele não assume qual o mapa e a data, será que tenho que alterar alguma coisa no código? Alem deste Mapa "Registo no Recobro UCA", tambem é Registo no "Recobro UCA-Pernoita" , solicito a vossa ajuda.

    Private Sub BtnImpRelPDF_Click()
    Dim strArquivo As String
    Dim strLocal As String
    strArquivo = " Registo Recobro" & ".PDF"
    strLocal = CurrentProject.Path & "\TESTE\" & strArquivo
    DoCmd.OutputTo acOutputReport, "Rel_Registo_Recobro", acFormatPDF, strLocal
    End Sub
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2902
    Registrado : 22/11/2016

    [Resolvido]Codigo VBA Empty Re: [Resolvido]Codigo VBA

    Mensagem  DamascenoJr. 24/6/2019, 15:20

    O código postado sempre salva os arquivos com o mesmo nome. Gere nomes diferentes.


    Código:
    Private Sub BtnImpRelPDF_Click()
    Dim strArquivo As String
    Dim strLocal As String
    strArquivo = " Registo Recobro" & second(now) & ".PDF"
    strLocal = CurrentProject.Path & "\TESTE\" & strArquivo
    DoCmd.OutputTo acOutputReport, "Rel_Registo_Recobro", acFormatPDF, strLocal
    End Sub


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    CPimenta
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 47
    Registrado : 05/01/2017

    [Resolvido]Codigo VBA Empty Re: [Resolvido]Codigo VBA

    Mensagem  CPimenta 24/6/2019, 15:33

    Boa tarde

    Valeu amigo pela dica, ficou beleza.

    Um abraço
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2902
    Registrado : 22/11/2016

    [Resolvido]Codigo VBA Empty Re: [Resolvido]Codigo VBA

    Mensagem  DamascenoJr. 24/6/2019, 16:05

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 29/7/2021, 12:42