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

    Exportar Relatório PDF para nuvem automaticamente

    avatar
    asventura96
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 30
    Registrado : 28/02/2021

    Exportar Relatório PDF para nuvem automaticamente Empty Exportar Relatório PDF para nuvem automaticamente

    Mensagem  asventura96 7/2/2022, 13:27

    Bom dia!

    Eu pesquisei na rede e não obtive uma solução para minha dúvida, portanto, gostaria de saber se é possível eu criar um botão que, ao clicar nele, automaticamente ele gera o PDF do Relatório e o envia para a Nuvem (OneDrive, SharePoint ou Teams Equipes).

    Para salvar localmente, eu uso este modelo:
    Código:
    Private Sub BtnPDFSRet_Click()
        On Error Resume Next
        
        Dim StrLocal As String
        Dim StrArquivo As String
        
        'Nome do Protocolo a ser salvo
        StrArquivo = "NF-es EMITIDAS - Sem Retorno - " & _
            Format(Now(), "ddmmyyyyhhnnss") & ".pdf"
        
        'Local onde o Protocolo será salvo
        StrLocal = "\\192.168.0.251\Contabilidade\BANCO DE DADOS\Relatórios\Sem Retorno\" & StrArquivo
        
        'Abre o Relatório Ocultado
        DoCmd.OpenReport "RelDFsEmitSRet", acViewPreview, , , acHidden
        
        'Gera o arquivo PDF do Relatório previamente Aberto
        DoCmd.OutputTo acOutputReport, "RelDFsEmitSRet", acFormatPDF, StrLocal, True, , , acExportQualityPrint
        
        'Fecha o Relatório
        DoCmd.Close acReport, "RelDFsEmitSRet"
        
        'Mensagem final ao Salvar o protocolo
        MsgBox ("Relatório gerado com sucesso!" & _
        vbCrLf & StrLocal), vbInformation, "Gerar Relatório em PDF"
    End Sub

    Mas para a núvem, eu não sei se é possível


    Última edição por Alexandre Neves em 7/2/2022, 19:58, editado 1 vez(es) (Motivo da edição : Título corrigido (de Exportar Relatório PDF para núvem automaticamente para Exportar Relatório PDF para nuvem automaticamente))
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    Exportar Relatório PDF para nuvem automaticamente Empty Re: Exportar Relatório PDF para nuvem automaticamente

    Mensagem  Silvio 7/2/2022, 14:08

    Boas....

    Tente adaptar ao seu sistema o código abaixo...

    Private Sub BtnPDFSRet_Click()
       On Error Resume Next
       
       Dim StrLocal As String
       Dim StrArquivo As String
       
       'Nome do Protocolo a ser salvo
       StrArquivo = "NF-es EMITIDAS - Sem Retorno - " & _
           Format(Now(), "ddmmyyyyhhnnss") & ".pdf"
       
       'Local onde o Protocolo será salvo
       StrLocal = "\\192.168.0.251\Contabilidade\BANCO DE DADOS\Relatórios\Sem Retorno\" & StrArquivo
       
       'Abre o Relatório Ocultado
       DoCmd.OpenReport "RelDFsEmitSRet", acViewPreview, , , acHidden
       
       'Gera o arquivo PDF do Relatório previamente Aberto
       DoCmd.OutputTo acOutputReport, "RelDFsEmitSRet", acFormatPDF, StrLocal, True, , , acExportQualityPrint
       
       'Fecha o Relatório
       DoCmd.Close acReport, "RelDFsEmitSRet"

    '-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Dim objFSO As New FileSystemObject
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    objFSO.CopyFile "C:\Test File.txt", "C:\Users\" & Environ("UserName") & "\OneDrive - Company", True
    Set objFSO = Nothing
    'Você precisará adicionar uma referência ao Microsoft Scripting Runtime em seu projeto para permitir que a variável no meu exemplo seja definida usando a vinculação antecipada.objFSO
    '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     
       'Mensagem final ao Salvar o protocolo
       MsgBox ("Relatório gerado com sucesso!" & _
       vbCrLf & StrLocal), vbInformation, "Gerar Relatório em PDF"
    End Sub


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    asventura96 gosta desta mensagem


      Data/hora atual: 5/3/2024, 03:56